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General Introduction 



Terminal Emulator User's Guide 

The IRMA product consists of three major components: a Decision 
Support Interface board named IRMA, software on an IBM 
Personal Computer compatible floppy disk, and documentation. The 
documentation is divided into three sections which are: The 
Terminal Emulator User's Guide, BASICA Subroutines, and 
Technical Reference. These sections are formatted for insertion into 
the IBM supplied ring binders. 

The varying needs of different types of users are met by these three 
sections of documentation. The non-programming user will find all 
necessary instructions for simple terminal emulation in the Terminal 
Emulator manual. Programmers will find documentation for 
automatic data transfer and custom application software 
development in the BASICA Subroutines documentation. The 
Technical Reference documentation is intended to provide the 
necessary additional information that an assembly language 
programmer would need to access IRMA for complex program 
development. 

The Terminal Emulator User's Guide is designed to aid the general 
user in the operation of the IBM PC as an IBM 3278-2 terminal. It 
includes step-by-step intructions for operation, a generalized 
explanation of the operational theory, and a list of the commands and 
functions that are available. The emulator provides all users with the 
features of a 3278 model 2 terminal. All keys found on a 3278-2 are 
available on the PC when using the emulator; however, there are 
some key position changes due to the format differences of the two 
keyboards. Normal 3278 screen displays are handled by the emulator 
including several cursor types, underline, blink, dim characters, and 
status line. Only the status line will appear different than that of the 
3278 because the PC character set lacks some of the special status 
characters. The emulator offers some additional features, such as 
attribute display and null field character display which are not 
available on the 3278 terminals. 

If the IBM PC has the color terminal adapter, several additional 
features become available: 3279 model 2 A features, color character, 
extended field attributes, and extended character attributes are then 
supported. Simulated color is also supported where protected, 
unprotected, bright, and dim fields become different colors. 
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The emulator program is supplied in two forms: executable code and 
source code, so that the emulator may be used as supplied or custom 
modified as desired. 

All IRMA users and programmers need to be familiar with the 
Terminal Emulator and its documentation. The Terminal Emulator 
User's Guide is to be inserted into the IBM DOS manual. 

For additional information refer to: 

IBM Personal Computer DOS manual 



IRMA -2 



BASICA Subroutines 



The BASICA Subroutines section consists of a group of routines 
which provide keystroke and field access from a BASICA program to 
the 3270 controller. When processing data to or from the controller, 
a variety of translations must take place. While the programmer may 
write this necessary code, the TAC supplied subroutines eliminate 
this task. 

The user documentation for the BASICA subroutine consists of a 
description of each routine, its entry statement number, the variables 
in which the programmer should supply input arguments, and the 
variables which are updates for the user. There are two BASICA 
programs provided as examples. One program provides a 
demonstration routine and the other provides an example of a data 
transfer program. 

Any programmer intent on developing a program to do automatic 
data transfer must become familiar with this manual and its 
contents. The BASICA Subroutines documentation is to be inserted 
into the IBM supplied BASIC manual. 

For additional information, refer to: 

IBM Personal Computer BASIC manual 
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Technical Reference 

The Technical Reference documentation describes in detail the 
interface specifications for IRMA. Included are the necessary 
specifications required to handle the IBM 3270 protocol. Detailed 
descriptions of the commands which access and pass data between 
IRMA and the 3270 controller are provided. Also included in this 
section are the Key Scan codes for the 3278-2 terminal, definitions 
and method of handling the Attribute and Extended Attribute bytes, 
and installation of the IRMA board into the IBM Personal 
Computer. 

This portion of the documentation is designed to aid the assembly 
language programmer in the development of specialized software. 
The Technical Reference documentation is to be inserted into the 
IBM supplied Technical Reference manual. 

For additional information, refer to: 

IBM Personal Computer DOS manual 

IBM Personal Computer Technical Reference 

IBM Personal Computer Macro Assembler 

IBM GA27-2849 3270 Information Display System 
Configuration 

IBM GA23-0061 3274 Control Unit and Programmer' s Guide 
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Introduction 



An integral part of IRMA, the Decision Support Interface (DSI), 
is the terminal emulator program. This program makes it possible 
for the IBM Personal Computer to emulate an IBM 3278-2 
terminal. This allows a PC to serve two functions, as a 
stand-alone microcomputer and as part of a 327x network 
accessing the full computing power and data base of the host 
computer. 

IRMA attaches by a coaxial cable to 3274, 3276 or integral type 
"A" terminal controllers. The DSI is completely compatible with 
the protocol used by the 327x controller; it functions 
independently of the Personal Computer's 8088 microprocessor. 
The programs and operating system in use by the controller are 
completely accessible when using the PC as a 3278-2 terminal. 
When the terminal emulator program is active, the PC screen will 
contain 25 lines of 80 characters with the 25th as the system 
prompt line. The DSI buffers a full 1920 (80 X 24) characters, just 
as the 3278-2 does. 

The IRMA board operates without dependency upon any program 
which may be running on the PC. There is no PC software 
required to handle the 327x system protocol; that protocol is 
handled completely by IRMA. As soon as IRMA is installed and 
receiving power, the 327x system protocol is being accepted. When 
the terminal emulator program is activated, the CRT displays the 
last screen transmitted over the coax. In other words, the IRMA 
board, as long as it is powered up, maintains communication with 
the 327x controller without regard to the operational mode of the 
PC. However, in order for the user to see the information which 
has been received and to send keystrokes to the mainframe host 
over the coaxial cable, the terminal emulator program must be 
running in the PC. When the PC is operating in the stand-alone 
mode, IRMA saves data received from the controller and displays 
the most current screen when the emulator is re-activated. 
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Features 



IRMA enables the PC to emulate a 3278 display with the full 
1920 character display and the 80 character status indicator 
line. 



IRMA keeps a complete screen buffer in memory. This 
enables the user to alternate between the 3278-2 mode and the 
stand-alone mode. 



IRMA's screen buffer is accessible from user programs. This 
feature allows the user to retrieve data from the mainframe 
and return the modified screen. 



4. Data from the mainframe can be transferred to the diskette or 
to a printer. 



5. Diagnostics are on-board. 



IRMA is designed for business people. There is no need to 
learn Assembly Language. Screen Print and Screen Save 
functions are provided to simplify capturing data. 



7. IRMA supports Attribute Characters and Extended Attribute 
Characters for the field oriented screens. 



The keyboard of the PC is redefined to functionally 
correspond to the 3278-2 typewriter type keyboard. 
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Operational Theory 



In order for the PC to perform as a 3278-2 terminal, the functions 
of the PC keyboard must be redefined to meet the specifications 
of the 3278-2 terminal. The theory behind the emulator is 
relatively simple. In the stand-alone mode, each key of the IBM 
Personal Computer generates a particular code sequence, referred 
to as BIOS (Basic Input/Output System) key codes. When a key is 
pressed, the character is translated into the BIOS key code which 
is processed by the PC's CPU. After the character has been 
processed, the screen buffer is updated and the new screen is 
displayed. 



When the PC is used as a 3278-2 terminal, the keystrokes are 
translated twice. For the 327x controller to understand the 
characters sent from the PC keyboard, the actual keystrokes are 
first translated into the PC BIOS by the PC's CPU. The emulator 
program then converts the BIOS codes into the key positions and 
key scan codes of the 3278-2 terminal. IRMA sends the 3278-2 
scan code to the controller where it is processed. The controller 
then modifies IRMA's screen buffer accordingly and the displayed 
screen is updated. 



In 327x operations, the displayed data is organized into fields. 
This simplifies data entry for an operator. The key functions that 
involve printing the display and storage or transmission of data 
are all field oriented. The characters that define the type of data 
to be entered in a particular field are called attribute characters. 
When an attribute character is encountered, all data following that 
character is considered part of the field. IRMA supports the use 
of Attribute Characters and Extended Attribute Characters (EAB). 
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Attribute Characters define the following: 
1. The start of a field, 



2. Whether a field is protected or unprotected (A protected field 
cannot be modified by the operator. An unprotected field 
allows for the entry of data.), 



3. Whether an input field (unprotected) will accept alphabetic or 
numeric or both types of data, 



4. Whether the current field is to be displayed, not displayed, or 
intensified, 



5. Whether the fields are to be detectable by a light pen, 



6. Whether tab stops will correspond to the first character of an 
unprotected field (auto skip), and 



7. Type of Modified Data Tag (MDT) (The controller searches, 
using bit 9, for modified fields. If the field has been 
modified, bit 9 will be set to one and the controller updates 
that field accordingly). 
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Extended Attribute Characters define the following: 

1. Character type (normal, blink, reverse video, or underlined), 

2. Character color, and 

3. Character set. 



Additional information on the handling of Attribute Characters 
can be found in the IRMA Technical Reference. 



The Attribute Characters are normally displayed as blanks. They 
serve as a signal to the controller and the display that a particular 
type of field is to follow. If the attribute byte defines a field to be 
both protected and numeric, the cursor is positioned automatically 
by the controller to the next unprotected field (auto skip). The 
user may display the attribute characters by entering Functions Fl, 
F2, or F3. (Function descriptions are found subsequently in the 
Section on Commands and Functions.) 



The DSI supports all the programming definitions for the attribute 
characters and the fields which they define. The keyboard 
operations, such as CLEAR or ENTER, function in the same 
manner as with the 3278-2 terminals. While the emulator program 
handles the translation of the scan codes, IRMA's 8X305 
microprocessor handles the 327x controller protocol, such as the 
actual transfer of data, handshaking, and screen buffer 
maintenance. The 8X305 acts as a supervisor, assigning the data 
entered to its proper position and function. It then sends this 
ordered data to the controller and, on the return, it sends the 
response to the proper source. (For a complete technical 
explanation of how the 8X305 handles the protocol and 
handshaking techniques, refer to the IRMA insert in the PC 
manual, IBM Technical Reference.) 
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Keyboard 



The chart shown here indicates which PC keys perform particular 
3278-2 functions. 



To apply the decals: 

1 . Refer to the following keyboard chart for the location of each 
key. 

2. Find a sharp tipped item such as a small knife blade, nail file, 
toothpick, or similar object. 

3. Choose a starting point. 

4. With the tip of the tool, carefully lift the decal by its top edge 
and position onto the appropriate key. 

5. Smooth the decal onto the key with your fingertip or a 
smooth blunt object. Avoid touching the adhesive with your 
hands. 

6. Repeat the process for each remaining key. Be sure to match 
the keyboard chart exactly. 
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How To Use The Terminal Emulator 



The first step in converting the PC to a 3278-2 terminal is to 
attach a coaxial cable from the system controller (3274, 3276, or 
integral type A) to the BNC connector supplied on the IRMA 
board. This port must be "sysgen'ed" for a 3278-2 type 
terminal with a typewriter keyboard. Since the diskette supplied 
is not a bootable diskette, the operating system must be booted 
prior to running the emulator program. At this point it is 
essential, if you have not already done so, to make a duplicate 
copy of the diskette. Use the duplicate copy and not the original 
for daily use. Store the original according to the instructions on 
the protective sleeve. Next, insert the duplicate diskette into 
either drive. To activate the emulator program, enter: 



A:E78< filename > or B:E78 < filename > 

depending upon the disk drive into which you inserted the 
diskette. The filename is optional. It is used to specify a file in 
which to store 'Screen Saves'. When IRMA is acknowledged by 
the system controller, the screen will exhibit the same system 
information that a 3278-2 terminal displays. 



After the emulator has been activated, the PC terminal may be 
used exactly as any other 3278-2 terminal, making it possible for 
you to access system programs, create new files, or any other 
function that is part of the 327x network. It is also possible for 
the user to switch back and forth between the 3278-2 mode and 
the PC stand-alone mode. A simple press of both shift keys will 
exit the emulator mode. When you exit the emulator mode, the 
current screen is saved in memory; this screen is redisplayed when 
the emulator program is reactivated. To re-enter the emulator 
mode, type E78 in response to the PC screen prompt and the 
saved screen will be redisplayed. If the user wishes, the emulator 
program may become "resident" by entering CONTROL-HOME. 
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(The PC must be equipped with at least 96K of memory.) Making 
the emulator "resident" allows the user to exit and re-enter the 
emulator with greater speed. Both exiting and re-entering the 
resident emulator are accomplished by pressing both shift keys 
simultaneously. If using the non-resident emulator, the user must 
re-activate the emulator by entering the E78 command. 



There is a limitation to using the resident emulator which is 
imposed by the PC's operating system; the Disk Operating System 
(DOS) does not provide the disk I/O required to save screens 
from a resident program. The user can have a copy of both 
forms of the emulator active simultaneously to compensate for 
this limitation. Refer to the CONTROL & PRINT SCREEN 
function in the following section for additional information on the 
uses of the resident and non-resident emulators. 
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Procedures For Using The Terminal 
Emulator 



1. Install IRMA into the PC. Follow the instructions given 
in the IBM manual, Guide to Operations, Section 5. 



2. Be sure that the port to be used is sysgen'ed for a 3278-2 
terminal with a typewriter keyboard. 



3. Attach the coaxial cable to the BNC connector provided on 
the IRMA board. 



4. Boot the PC operating system. 

5. Make a duplicate copy of the IRMA diskette. 

6. Insert duplicate diskette into either drive A or B. 

7. Enter E78 to activate the emulator program. 



8. Enter CONTROL & HOME to make a "resident" copy of the 
emulator program, providing enough memory (96K) is 
available. 
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Commands And Functions 



E78 



Activates terminal emulator 
program. 



For each of the following functions, both keys listed must be 
pressed simultaneously. 



SHIFT & SHIFT 



Exits either the non-resident or 
resident emulator. This command is 
also used to access the resident 
emulator. 



CONTROL & HOME 



Creates the resident emulator. 



CONTROL & PgDn 



Causes the system to reset, as if it 
has just been powered up. The 
equivalent function on the 3278-2 
terminal is the test switch located to 
the right of the display screen. 



CONTROL & 4 



<3<— moves the cursor to the 
left two character positions. 
This function is also provided j 
as the ALT of 'D\ 



CONTROL & 6 



— ^§> moves the cursor to the I 
right two character positions. 
This function is also provided | 
as the ALT of 'F. 
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CONTROL & Fl 



Assigns attribute color code for 
display provided a color display 
adapter is in use with the PC. 
There are three levels of color 
codes. When CONTROL & Fl are 
first entered, the screen comes up 
with a black background and white 
characters. No color or 
underscoring is attempted. If 
CONTROL & Fl are entered a 
second time, monochrome 
application programs are displayed 
in the following color scheme: 



Unprotected 

Unprotected 

Unprotected 

Unprotected 

Protected 

Protected 

Protected 

Protected 



alpha dim white 

alpha bright red 

numeric dim yellow 

numeric bright red 

alpha dim green 

alpha bright cyan 

numeric dim blue 

numeric bright blue 



If using a 3279 terminal, 
CONTROL & Fl can be entered a 
third time to make use of 3279 type 
color codes. Use of color modes 
(1,2) with monochrome displays 
attached to a color display adapter 
may result in unreadable screens. 
This situtation is not harmful, just 
not useful. 
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CONTROL & F2 Attributes (display buffer codes 

OCOH - OFFH) are displayed as 
ASCII characters 040H - 07FH. 



For example, Attribute OCOH is 
displayed as " @ " . The following 
chart indicates the displayed 
characters for each Attribute. 



Conversion of Attribute characters to Display symbols 

Attr. Char Attr. Char Attn Char Attr. Char 
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CONTROL & F3 



Places dots in unprotected null 
fields. 
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SHIFT & PRINT SCREEN 



Prints the current screen on the 
local printer (for both resident and 
non-resident) 



CONTROL & PRINT 
SCREEN 



Copies current screen to diskette. 
In order to copy to the diskette, you 
must have specified a filename 
after the E78 command. (This 
command works only with the 
non-resident emulator. If using the 
resident emulator, you must exit 
and enter the E78 filename 
command for a copy of the 
non-resident emulator. You may 
have both versions active 
simultaneouly. After typing E78 the 
last screen will be displayed and 
you can then save it on the diskette 
by entering the CONTROL & 
PRINT SCREEN command. 
Pressing both shift keys will exit 
non-resident copy; pressing both 
shift keys again will place you back 
in the resident emulator with the 
same screen you had upon exit.) 
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System Message Characters 



On any 3278-2 terminal the 25th line is reserved for system 
messages, for example, the system error codes. Not all of the 
characters which make up the symbols are available on the PC. 
The following chart indicates the 3278-2 symbol, the 
corresponding PC symbol, and where it has been defined, the 
message that each one represents. 



3278-2 PC 
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Message 

Program 

Used with X - to indicate symbol 
keyed is not available 



Insert mode 



Online to a 3276 controller 

Used in combination with other 

symbols 

Used in combination with other 

symbols 

Used in combination with other 

symbols 

Used to indicate 'not working' 

Shift lock 

Operator 

Type B controller 

Alpha lock 
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3278-2 PC 
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Message 

Unknown response 

Operator's program 

Used with X and nn to indicate a 
communication link error. 
Used in combination with other 
symbols. 

Used in combination to form ~/7 

Used in combination to form other 
symbols. 

Left half of clock 
Right half of clock 

System message 

Used in combination to form 

other symbols. 

Used in combination to form other 

symbols. 

Right portion of Printer failure 

message 

Left half of security key 
Right half of security key 
Online to a 3274 controller 
Online to a type A controller 
Symbol for card 
System operator 
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Combination Symbols 



X - f* Function unavailable 

X O "Tl Security key off 

XO Printer not working 

X O — O C } Printer busy 



Operator unauthorized for specified 
printer (Must RESET keyboard) 



x©x 

/T7\ fc Go elsewhere, action has been 

A^Aii/"^ attempted which is invalid for field. 

y /T7\ \ Operator entered too much data 

A ^J y into field 

y /T7\v I. iiA Number lock installed (Must 

^^ RESET keyboard) 

y/TTx i± 9 Operator entered invalid number in 
^^ — field 

y /-\ ^ ^fe Message received from system 

A W operator and rejected (Must RESET) 



Communication link producing 
errors 



O — O nn Printer assignment 



O — O ? ? Printer IDENT has been changed 

O — O Printer active 

O — SI Printer failure 

O — O Assign printer 
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Summary 



This section has explained the theory and procedure for using 
IRMA as a 3278-2 terminal. In the additional documentation 
supplied with IRMA, you will find the technical information 
necessary to write data handling programs, to alter the key 
positions, and to more fully understand the technical details of 
IRMA. 



The Technical Reference insert contains the key scan codes, the 
method by which data is accessed, the component definitions, and 
the commands used to pass and access data. 



The BASICA Subroutines documentation lists a description of 
each of the routines supplied with IRMA. These routines have 
been designed to handle the more complicated functions required 
for automatic data transfer via IRMA. For example, they can be 
inserted into a user- written program to read, modify, or write 
unprotected fields. The sources for these routines are provided 
on the diskette as part of the total software package. 
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Introduction 



The Terminal Emulator User's Guide has shown how screens of 
data from the IBM mainframe host computer can be captured in 
the IRMA screen buffer and displayed by running the Terminal 
Emulator program. That same Guide also outlined how the PC 
accepts keystrokes and prepares them for transmission to the host 
computer which updates the screen buffer accordingly. 

The IRMA screen buffer may be accessed by user-written 
programs as well. Since individual needs are quite different, no 
single comprehensive PC program is appropriate. There are, 
however, predictable data handling routines which have been 
formulated into subroutines for use in BASICA programs. 

These BASICA Subroutines provide the foundation for automatic 
data transfer via IRMA. A programmer can access the 
appropriate routine to handle many of the more complicated 
functions of passing data to and from the host. The subroutines 
offer the means to generate keystrokes and read and write screens 
from within a user program. These routines also serve as a model 
for a programmer to write programs which will access IRMA in 
PASCAL, FORTRAN, and other languages. 
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Features 



1. The IRMA subroutines can be used with BASIC, BASICA, 
and the IBM BASIC complier. 

2. IRMA's subroutines provide access to screen data by 
row/ column or field number. 

3. The subroutines can read, modify, or write unprotected fields. 

4. All code conversions between ASCII and 327x display buffer 
codes are performed automatically. 

5. The full ASCII character set as defined in the IBM 
Technical Reference is supported. 

6. IRMA's routines check the data type when modifying screen 
fields. 

7. The character translation tables are easily modified to 
support unique customer applications. 

8. Fully commented sources are provided for detailed 
examination or maintenance. [IRMASUBS.LST] 

9. A sparsely commented source is provided for reduced 
storage requirements in large user applications. 
[IRMASUBS.BAS] 

10. Any screen information, including Attributes and Extended 
Attribute Buffer (EAB), can be accessed. 

1 1. Easy access to IRMA's status information, including alarm 
status, cursor position, and line sync indicator, is provided. 

12. IRMA subroutines also provide the capability to trigger user 
application program action on screen updates from the host 
computer. 
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Subroutines 



Before any use can be made of the subroutines, an initialization 
call must be made. This call causes all of the parameters to be 
set to their starting values. The user must make the initialization 
call prior to using any other routine. Include at the beginning of 
your program: 

GOSUB 50000 

Each of the routines are represented in two ways in the following 
documentation: Name and Statement number. BASICA can only 
call routines by statement number, but remembering the title of 
each routine will make its use easier. Note that each routine 
begins with a REMark statement which includes the proper 
name. 

The description of each subroutine includes those variables to 
which the user must assign values before calling a routine (Input) 
and those variables which are assigned values by the routine 
(Output). All input variables MUST be given values by the user. 
Reserved variables are listed at the end of this document. 

Included as an appendix to this document is a sample BASICA 
program written to exemplify the implementation of each 
subroutine. It may be used as a guideline for writing a data 
handling program to fit your specific needs. 
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KEYS 
Keystroke Send 



Statement 
Number: 



50600 



Routine 
Name: 



KEYS 



Input 
Variables: 

Output 
Variables: 

Remarks: 



Reference: 



I.VSTS String to be sent to host 



I.VER% Error status (device or key timeout) 

This routine sends strings as keystrokes to the host 
computer. The string length is confined to BASICA's 
limit of 255 characters. Note: See Reserved Names 
section for specification of error status values. 

In Appendix A, the sample program, 
SAMPLES.BAS lines 600-620, provides an example 
of sending keystrokes. Line 602 sets the value for the 
input variable; line 604 calls the Keystroke Send 
subroutine. This subroutine occupies lines 50600- 
50660 of the same sample program. Line 612 sets the 
input variable to a new value and line 614 calls the 
Keystroke Send subroutine. 
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FIND 

Find Unprotected Field 



Statement 








Number: 


50700 






Routine 








Name: 


FIND 






Input 
Variables: 


I.VFL% 




Field number to be found 


Output 
Variables: 


I.VER% 




Error status (device timeout, field 
error) 




I.VCB% 




Pointer to leading attribute 




I.VCE% 




Pointer to trailing attribute 




I.VFS% 




Current field length 




I.VRO% 




Row address of field data 




I.VCL% 




Column address of field data 




I.BUF% 


(0) 


Leading attribute character 


Remarks: 


This routine searches IRMA's internal screen buffer 



for unprotected fields. As it searches, each 
unprotected field is counted until the specified count 
is reached. The absolute address of the selected 
field's unprotected attribute is returned in I.VCB%. 
The field contents are then scanned, counting 
characters and searching for another attribute. 
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FIND 

Find Unprotected Field 



I.VCE% is left as an absolute pointer to the trailing 
attribute. I.VCB% and I.VCE% are used internally 
for the "Find Next" routine and for several field type 
consistency checks. The following variables 
SHOULD NOT be modified by the user: I.VCB%, 
I.VFS%, I.VCE%, I.BUF%. They must retain their 
values which were assigned by the FIND and 
FN EXT subroutines, since they provide the link 
between these subroutines as well as between 
successive FN EXT subroutine calls. 

Reference: In the sample program, SAMPLES. BAS, provided in 
the Appendix, note lines 200-240. This portion of the 
sample program finds and prints each field. Line 202 
sets the value for I.VFL% to one to find the first 
field. Line 210 calls the subroutine, FIND. The next 
portion of the program reads the found field and 
prints Jhe specified information. Line 240 calls the 
subroutine which finds the next field. 
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FNEXT 

Find Next Field 



Statement 






Number: 


50800 




Routine 






Name: 


FNEXT 




Input 






Variables: 


I.VFL% 


Field number to be found 


Output 






Variables: 




Error status (device timeout, field 




I.VER% 


error) 




I.VCB% 


Pointer to leading attribute 




I.VCE% 


Pointer to trailing attribute 




I.VFS% 


Current field length 




I.VRO% 


Row address of field data 




I.VCL% 


Column address of field data 



I.BUF% (0) Leading attribute character 

Remarks: This routine increments I.VFL%, initializes the 

internal variables; then goes to the FIND routine. 

Reference: For an example of usage see lines 200-240 of 

SAMPLES.BAS listed in the Appendix. Line 230 
calls FNEXT. This routine can be used only after 
FIND has been used, as it depends on the value of 
I.VFL% specified in FIND. 
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RDFLD 

Read Field Contents 



Number: 


50900 


Routine 
Name: 


RDFLD 


Input 
Variables: 


None 


Output 
Variables: 


I.VER% 




I.BUF% 



Error status (device timeout) 

( ) PC buffer is filled with field contents. 
I.BUF%(0) contains the leading 
attribute character. I.BUF%(1) 
through I.BUF%(I.VFS%) contain 
screen data and EAB information. 
Screen data is contained in the low 
order byte and EAB information is 
in the high order byte. 



Remarks: RDFLD transfers IRMA's internal screen memory 

of screen data and EAB contents to an internal array 
within the PC. FIND and FNEXT must be called to 
setup buffer pointers before calling RDFLD. 

Reference: RDFLD is also used in the lines 200-240 in 
SAMPLES.BAS. 
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WRFLD 
Write Field 



Statement 
Number: 



51000 



Routine 
Name: 



WRFLD 



Input 
Variables: 



Output 
Variables: 



Remarks: 



Reference: 



I.BUF% ( ) Internal screen buffer 
I.VCB% Initial attribute pointer 

I.VFS% Field length 



I.VER% Error status (device timeout, illegal 

character) 

This routine writes the contents from the PC's 
internal buffer to IRMA's screen memory. WRFLD 
transfers data to the screen memory with error 
checking appropriate to the 3270 terminal system. 
The field is verified to be non-protected and only 
I.VFS% characters are written. The routine will 
abort without modifying the screen memory if a non- 
numeric character is found in a numeric only field. 
This routine must be preceded by a FIND. 

SAMPLES.BAS, lines 300-345, gives an example of 
how one might use this subroutine. This portion of 
the program finds a field; puts a string within that 
field into the PC's buffer. WRFLD writes the 
contents of the PC's buffer into IRMA's internal 
screen memory. 
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GTSTR 






Get String 




Statement 






Number: 


51100 




Routine 






Name: 


GTSTR 




Input 
Variables: 


I.BUF% ( 


) Internal screen buffer 




I.VFS% 


Field length 




I.VOO% 


Offset within field to begin transfer 


Output 
Variables: 


I.VER% 


Error status (Offset out of bounds) 




I. VST 


$ ASCI I data recovered from buffer 




I.VOO% 


Offset to REMAINDER of field (If 
field is longer than 254 characters) 


Remarks: 


The GTSTR 


routine retrieves the field data from the 



PC's internal buffer and converts the characters to 
the extended ASCII used by the PC in its display 
buffer. 

Reference: An example of this subroutine can be found in lines 
200-240 of the sample program. GTSTR converts 
IRMA's buffer code to the extended ASCII characer 
set used by the PC's display buffer. In order to 
transfer data from one buffer to another this 
conversion must take place before the string can be 
read. 
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PUSTR 
Put String 



Statement 
Number: 

Routine 
Name: 

Input 
Variables: 



Output 
Variables: 



Remarks: 



Reference: 



51200 

PUSTR 

I.VSTS 
I.VOO% 

I.VER% 
I.VOO% 
I.BUF% 



String to be placed in buffer 
Offset in buffer at which to begin. 

Error status (device timeout) 
Offset to remainder of field 
Screen format buffer 



PUSTR writes an ASCII string into the PC's 
internal display buffer. It moves the ASCII string 
into the PC's internal buffer and converts it to 3270 
type buffer codes. This routine should be called prior 
to a WRFLD in order to place the data to be written 
in the internal buffer. 

An example of this subroutine is found in lines 300- 
345 of SAMPLES.BAS. PUSTR is used here in 
combination with FIND and FNEXT. FIND locates 
the field and PUSTR translates the ASCII string, 
I.VSTS, into IRMA's buffer code and moves that 
string to the internal buffer (I.BUF%). WRFLD 
takes I.BUF% and writes it in the screen buffer. 
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RDABS 

Read Absolute Screen 



Statement 
Number: 


51300 




Routine 
Name: 


RDABS 




Input 
Variables: 


I.VRO% 


Row number of starting character 




I.VCL% 


Column number of starting character 




I.VRR% 


Length of area to read 


Output 
Variables: 


I.VER% 


Error status (device timeout) 




I.VRO% 


Row position after last character read 




I.VCL% 


Column position after last character 
read 




I.VST$ 


ASCII form of screen data 




I.VSOS 


EAB data 


Remarks: 


This routine 


moves IRMA's screen memory 



characters and EAB data into user strings from a 
given row and column screen position for a given 
length. Screen characters are translated into ASCII. 
The EAB data is unmodified. 

Reference: The example for this subroutine is found in lines 
400-412 in SAMPLES.BAS. The variables are set 
for the row and column at which to begin the read 
and the number of columns (characters) to be read 
before calling the subroutine in line 406. In this 
particular example the procedure will be performed 
five times, such that the first 40 characters 
(I.VRR%) of the top five lines (I.VRO%) of the 
3278 screen are displayed. (Value for I.VRO% is 
determined by the FOR/NEXT loop, lines 404 and 
412.) 
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GTCP 

Get Cursor Position 



Statement 






Number: 


51400 




Routine 






Name: 


GTCP 




Input 
Variables: 


None 




Output 
Variables: 


I.VER% 


Error status (device timeout) 




I.VRO% 


Cursor row position 




I.VCL% 


Cursor column position 


Remarks: 


GTCP reads 


the 3270 screen cursor position from 



IRMA. It should be noted that the row address may 
not be within the confines of the normally displayed 
screen. 

Reference: Lines 500-520 of SAMPLES. BAS provides an 
example of GTCP. This portion of the program 
retrieves the cursor position and prints the location of 
the buffer pointers. It also calls a subroutine listed in 
lines 900-980 which retrieves and displays the state 
of the main and aux status words. 
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XPOR 

Execute Power-on-reset 



Statement 
Number: 



50100 



Routine 
Name: 



XPOR 



Input 
Variables: 



None 



Output 
Variables: 

Remarks: 



Reference: 



I.VER% 



Error status (device timeout) 



The XPOR routine causes the controller to set the 
terminal as though it has just been powered up. This 
call can be useful in clearing some controller errors, 
especially if the coaxial cable has been disconnected. 

This subroutine is not used in the sample program; 
however, the subroutine is listed in lines 50100- 
50108. Its use should be limited to particular 
conditions, such as during data transfer if the 
controller has sent data which does not appear to be 
that which was requested. When all other attempts to 
remedy the problem have been exhausted inserting 
this subroutine into the program will reset the 
terminal. The controller will acknowledge the 
terminal as if it has just been powered-on. 
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GSTAT 






Get Status 




Statement 






Number: 


50200 




Routine 






Name: 


GSTAT 




Input 
Variables: 


None 




Output 
Variables: 


I.VST% 


Main device status 




I.VAX% 
I.VER% 


Auxiliary device status 
Error code 


Remarks: 


GSTAT reads the current main and aux status from 



Reference: 



IRMA. Each bit in these status words has a specific 
meaning. Parameters are provided (See the list at the 
end of this section) to allow the user to 'and' mask 
the status with a parameter to test for a specific 
condition. For example, to test for the buffer 
modified status (I.MDI% from table), the program 
would read: 

GOSUB 50200 

IF I.VST% AND I.MDI% THEN GOTO . . . 

Bit mask parameters for both I.VST% and I.VAX% 
are provided. 

Lines 700-714 contain an example of this subroutine. 
The routine reads the status, displays the current 
status, clears each of the status bits, and then reads 
and displays the status after the clear. 
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RSTAT 
Reset Status 



Statement 
Number: 



50300 



Routine 
Name: 



RSTAT 



Input 
Variables: 



I.VST% 



Bits in status word to be reset 



Output 
Variables: 



I.VER% 



Error status (device timeout) 



Remarks: RSTAT resets status bits in the main status word. If 
a status bit such as I.MPR% (controller reset) is 
read in a GSTAT, the user program must take any 
action needed, then reset the bit. This can be done by 
calling RSTAT with I.VST% as set by GSTAT. 
Note that any bit set in I.VST% when RSTAT is 
called will be reset. 

Reference: Lines 700-714 include an example of this subroutine. 
After displaying the status, the status bits are cleared 
or reset. 
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STDNM 

Set Trigger Data AND Mask 



Statement 








Number: 


50400 






Routine 








Name: 


STDNM 






Input 
Variables: 


I.VRO% 


Row for trigger test 






I.VCL% 


Column for trigger test 






I.VMS% 


Trigger mask value 






I.VVL% 


Trigger test value 




Output 
Variables: 


I.VER% 


Error code on exit 




Remarks: 


STDNM allows the program to declare a location on 



Reference: 



the screen, for a delay until a specific value is written 
into that location. WTRIG will not return until that 
value is found in the requested location. The 
location = value test is made only on those bits which 
have value of one in the mask. Thus, to make an 
exact match test, the value of I.VMS% must be set 
to 255 (decimal) which is all one bits. The condition 
of I.VMS% = is special. If the mask is zero, then 
any CHANGE in the location requested will result in 
WTRIG returning. In this case, I.VVL% is unused. 

An example of this subroutine can be found in lines 
800-899. Lines 802 and 804 set the input variables. 
The row and column are set to (one,one) which 
positions the pointer to the upper left corner. The 
mask and text values are both set to zero which 
makes a trigger occur upon any change in row 1, 
column 1. 
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WTRIG 
Wait Trigger 



Statement 
Number: 

Routine 
Name: 

Input 
Variables: 

Output 
Variables: 



Remarks: 



Reference: 



50500 



WTRIG 



I.VTO% Time constant (in seconds) 

I.VER% Error code 

I.VTO% Time remaining 

WTRIG waits until a specific trigger event occurs 
(see STDNM). The time constant, I.VTO allows the 
programmer to select how long WTRIG will wait for 
the event to become true (in seconds). 

This subroutine is used in conjunction with STDNM. 
The WTRIG routine is called in line 824. It allows 
a program to wait for a trigger condition specified 
by STDNM to occur. If I.VTO% returns with a 
value of zero, no trigger event has occurred and the 
call to WTRIG has timed out. 
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Reserved Names 

The BASICA subroutines occupy statement numbers from 50000 
to 59999. No user statements should be included in this range. 
The variables, flags, and parameters used by these routines are 
named so that user routines will not conflict. The following list 
shows this usage: 



Name 



Use 
IRMA commands 



Type 



I.CRD% 


Slave read data 


Parameter 


I.CWR% 


Slave write data 


Parameter 


I.CAC% 


Slave aux status and cursor update 


Parameter 


I.CCL% 


Slave main status bit clear 


Parameter 


I.CKY% 


Slave send keystroke 


Parameter 


I.CSP% 


Slave selector pen strike 


Parameter 


I.CXP% 


Slave execute power-on-reset 


Parameter 


I.CMD% 


Slave load trigger mask and data 


Parameter 


I.CTA% 


Slave load trigger address 


Parameter 


I.CIM% 


Slave set attention request mask 
Main status word (I.VST%) bit mask 


Parameter 


I.MAX% 


Auxiliary status change 


Mask 


I.MTG% 


Trigger event occurred 


Mask 


I.MKY% 


Slave key scan code buffer empty 


Mask 


I.MXX% * 


Unused, reserved for future use 


Mask 


LMPR% 


Controller requested reset occurred 


Mask 


I.MCC% 


Last command complete flag 


Mask 


I.MDI% 


IRMA buffer modified by controller 


Mask 


I.MCM% 


Cursor position modified by controller 
Auxiliary status word (I.VAX%) bit mask 


Mask 


I.MXX% * 


Unused, reserved for future use 


Mask 


I.MPO% 


IRMA polled since last status read 


Mask 


I.MAL% 


Sound alarm request 


Mask 


I.MDD% 


Display disabled (inhibit) request 


Mask 


I.MCI% 


Cursor inhibited 


Mask 


I.MRC% 


Reverse block cursor select 


Mask 


I.MBC% 


Blinking cursor select 


Mask 


I.MCK% 


Keyboard clicker enabled 

* Known to be duplicates — Reserved 


Mask 
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Reserved Names 



Name 



I.RGO% 

I.RG1% 

I.RG2% 

I.RG3% 

I.RST% 

I.RAK% 

I.RAF% 



I.MAT% 
I.MBS% 



I.VTO% 
I.VT5% 
I.VSOS 
I.VT5$ 



I.VER% 



Use 
IRMA device code parameters 

Device code of register 
Device code of register 1 
Device code of register 2 
Device code of register 3 
Handshake slave to start select 
Handshake ATTN acknowledge 
Handshake flag read select 

IRMA handshake flag bit masks 

IRMA requests System Unit attention 
IRMA busy with System Unit request 



BASICA internal use temporary variables 



Type 



Parameters 
Parameters 
Parameters 
Parameters 
Parameters 
Parameters 
Parameters 



Mask 
Mask 



I.VT1% I.VT2% 



I.VS1$ 
I.VS6S 



I.VS2$ 

I.VS7S 



I.VT3% 
I.VT8% 
I.VT3S 
I.VS8S 



I.VT4% 
I.VT9% 
I.VS4S 
I.VS9$ 



BASICA subroutine I/O variables 

Error code returned to user 



Temp, variable 
Temp, variable 
Temp, variable 
Temp, variable 



Variable 



— No error occurred 

1 — IRMA did not respond to command 

2 — Row number out of range 

3 — Column number out of range 

4 — Byte value out of range 

5 — Invalid field type for operation 

6 — Invalid character in NUMERIC only field 

7 — Field number out of range 

8 — Invalid extended key code 

9 — Timeout on key send attempt 

1 — Timeout on trigger wait event 

1 1 — Illegal internal buffer pointer 

1 2 — Field or string too long 

1 3 — Found field does not match internal 

buffer type 

14 — Buffer offset out of range of 

internal buffer 

1 5 — Bad key scan code 



IRMA -20 



Reserved Names 



Name 


Use 


Type 


I.VST% 


Main status word 


Variable 


I.VRO% 


Screen row number (0-24 [0 is the 
status line, row 1 starts at the top of the 
screen]) 


Variable 


I.VCL% 


Screen column number (1-80) 


Variable 


I.VMS% 


Trigger mask byte 


Variable 


I.VVL% 


Trigger value byte 


Variable 


I.VFG% 


General Boolean flag 


Variable 


I.VST$ 


General string variable 


Variable 


I.VFL% 


Current field length 


Variable 


I.VAX% 


Aux status value 


Variable 


I.VOO% 


Buffer offset pointer for string I/O 


Variable 


I.VRR% 


Raw screen read data length 


Variable 


I.VCB% 


Internal pointer to beginning of field 


Variable 


LVCE% 


Internal pointer to end of field 


Variable 


I.VFS% 


Internal field length (size) 


Variable 


I.VTO% 


Timeout constant 


Variable 


I.TAB% 


Code conversion tables 


Variable 


I.BUF% 


Screen format buffer 


Variable 



The parameters above are constants. BASICA does not provide 
for any parametric declarations, so all of the basic subroutines 
use one set of variables which are initialized to the correct value. 
Parameters NEVER change during a program execution. 

The temporary variables listed above are used by these 
subroutines to hold values needed during execution. No data is 
guaranteed to be left in any of these variables. 

The argument-passing variables are used to pass data to and/or 
from the BASICA subroutines. In the description of each routine, 
those variables listed as INPUT must be set prior to the GOSUB. 
Those variables listed as output are updated during routine 
execution. Note that some variables are both input and output. 

THE USER IS WARNED THAT THESE ROUTINES 
PROVIDE THE PROTECTION NEEDED TO PREVENT 
THE SENDING OF ILLEGAL DATA TO THE 3270 
NETWORK. THIS PROTECTION IS ONLY AVAILABLE IF 
THE ROUTINES REMAIN UNMODIFIED. 
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IRMA 

Tfechnical Reference 
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Introduction 



IRMA T , M the Decision Support Interface™, is a printed circuit board 
which plugs into the IBM Personal Computer System Unit. It 
can be installed in any slot in the System Unit and provides a 
back panel BNC connector for attachment by a coaxial cable to 
either a 3274 controller, 3276 controller, or an integral controller. 

IRMA operates in a stand-alone mode, using an on-board 
microprocessor to handle the 327x protocol and CRT buffer. 
Whenever power is applied to IRMA, it responds to commands 
from the controller as if an IBM 3278-2 terminal were attached 
to the coaxial cable. The CRT buffer is accessed from the PC 
System Unit as an I/O device, the device codes being 220H to 
227H. IRMA does not occupy any of the memory address space. 

In order to meet the requirements of the 327x protocol, the 
Decision Support Interface (DSI) uses high speed microprocessor 
technology which is independent of the 8088 microprocessor of 
the System Unit. This allows the user to ignore the timing 
requirements of 327x, and operate with a buffer of data just as 
the 3278 CRT does. 

When operating, the DSI takes commands from a four byte dual 
ported register array in addresses 220H to 223H. This array is 
accessed by I/O commands from the System Unit. The four 
single byte words are arranged as the command and up to three 
arguments. Command words allow the System Unit program to 
read or write bytes in the screen buffer, send 
keystrokes, and access the special features available on the DSI. 
This array is also handled on the DSI by the microprocessor 
which manages the 327x protocol. When the DSI is idle between 
messages from the controller, any commands left in the array by 
System Unit programs are processed as required. This processing 
occurs only when the higher priority 327x communication is idle. 
This idle state is indicated by a busy/done flag mechanism for 
both the DSI and System Unit microprocessors. This allows the 
System Unit to declare that a new command is available to the 
DSI, and for the DSI to signal the completion of this command. 
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IRMA BLOCK DIAGRAM 



COAXIAL CABLE 



(TO 327X CONTROLLER) 



6K RAM 
BUFFER 
MEMORY 



MICRO- 
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8X305 



COAX 

TRANSMITTER 

DP8340 



COAX 

RECEIVER 

DP8341 



DUAL POFTED REGISTER 



IRMA 



SYSTEM UNIT BUS 
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Major Component Definitions 



8X305 Microprocessor 

The 8X305 microprocessor provides the intelligence to handle the 
327x protocol. Polling and answering, data transfer, handshaking, 
and screen buffer maintenance are performed by this processor. 

DP8340 and DP8341 327x Coax Transmitter/Receiver Interface 

These two ICs provide the interface from the microprocessor to 
the 327x coaxial cable. Serialization and deserialization of data 
take place in these two parts. 

Screen Buffer 

The DSI contains 6K bytes of fast RAM memory for screen 
buffers and temporary storage. This is divided into two 2K byte 
buffers for the CRT screen and the Extended Attribute buffers, 
leaving 2K bytes for local storage used by the 8X305 processor. 

Dual Port Register Array 

The four byte dual ported register array is shared by the 8X305 
and the System Unit 8088 processors. These registers are used for 
all communication between the two microprocessors. Data to be 
transferred from one processor to the other is written into specific 
locations (addresses) in the array (220H-223H) and the 
'Command Request' flag (226H) is set. When the receiving 
processor has read the register, this flag is cleared. Each processor 
can test the state of this flag to see if data transfer can begin and 
to determine when the transfer is complete. 
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Operation 



The dual ported communication array is used to pass commands 
from the System Unit and its program to the DSL The registers 
are organized as four I/O addresses (220H to 223H), using one 
8 bit word at each address. The base address of the standard DSI 
command is 220H. Arguments for the command are placed into 
addresses 22 1H, 222H, and 223H. Standard command operation 
for the DSI requires the user program to set values into the dual 
port register as appropriate for each command. First, the user 
program sets the 'Command Request' flag. IRMA then reads the 
data, performs the operation, and leaves any resulting data in the 
dual port array. The Command Request flag is cleared at that 
time. 

Ten commands are defined for the DSI program. These 
commands are given the following values: 

Command Code Command Definition 

Read buffer data 

1 Write buffer data 

2 Read status/cursor position 

3 Clear main status bits 

4 Send keystroke 

5 Light pen transmit 

6 Execute Power-on-Reset 

7 Load trigger data and mask 

8 Load trigger address 

9 Load attention mask 
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Programming Considerations 



The DSI is accessed as an I/O device on the System Unit bus. It 
uses eight I/O device codes, 220H through 227H. Device codes 
220H, 22 1H, 222H, and 223H are a dual access register array 
which is attached to both processors. The four bytes are used to 
pass commands from the 8088 to the DSI and to return any 
answers. Device code 224H and 225 H are reserved for future use. 
Device codes 226H and 227H are used for Command Request 
and Attention Request flags. 

All commands use word 0, device code 220H, as a command 
selection register. To begin a command, the program must set 
word equal to the command number. The other 3 words are 
used to pass the arguments of the command. When the specified 
command is completed, word contains the main status bits and 
the other three words contain output data. 

A flag is provided to allow the user program to check for a 
command in progress. This flag is set by the 'Command Request' 
operation, and cleared when the command is finished. Programs 
must check this flag before modifying the register array. When 
the flag is clear, the array may be modified and a new command 
begun. If the program has not cleared the flag, an Invalid 
Response/Status may be returned to the user program. 

Programmer's Notes on Status Bits 

Main Status bits indicate specific conditions. The 'Aux Status 
Change' bit is set anytime the Aux Status changes. The 'Trigger 
Occurred' bit is set whenever the trigger data match occurs (see 
Load Trigger Data and Mask command (7)). The 'Key Buffer 
Empty' bit is set when the key scan code buffer is empty (see 
Send Keystroke command (4)). The 'Unit Reset' bit is set 
whenever the controller sends a 3270 reset command. The 'Buffer 
Modified' bit is set when any buffer write occurs. The 'Cursor 
Position Set' bit is set whenever the controller positions the 
terminal's cursor in the buffer. 

The 'Aux Status' bits are defined as follows: the 'Unit Polled' bit 
is set by a poll command. This bit clears after reading. Since the 
controller polls about 1000 times per second, this status bit will 
be set often. The other 6 Aux status bits are defined exactly as 
3270 protocol defines them. 

The 'Command Interrupt Request' bit should not be used to tell 
when another command can be started. The hardware flag 
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'Command Request' must be used for this purpose. The 
'Command Interrupt Request' bit will clear when a command is 
begun, and will be set at the end of the command. However, it is 
not cleared immediately upon 'Command Request'. 

The 'Key Buffer Empty' bit, which is used to check the buffer 
before sending a 'Keystroke' command is only guaranteed valid 
if no command is in progress. This is because the empty bit does 
not clear immediately upon the keystroke command. Again, use 
the hardware flag to check for a command in progress before 
checking the empty flag bit. 

The Main Status in word is updated each time any of the 
conditions specified occurs. This word can be read and used with 
the above limitations at any time. The 'Read Status' command is 
not necessary except to read the 'Aux Status' or 'Cursor Position'. 

The returned Main Status byte consists of 8 bit flags as follows: 

Bit Meaning 

7 (MSB) Aux Status change has occurred (*) 

6 Trigger Occurred (*) 

5 Key Buffer Empty 

4 UNUSED 

3 Unit Reset by controller^*) 

2 Command interrupt request ( + ) 

1 Buffer Modified (*) 

Cursor Position Set, or search backward (*) 

(*) = Bits which must be cleared by user program 
( + ) = This bit allows the attention request /interrupt 
request mechanism to be used with commands. 
Programmed I/O operation should use the hardware 
flag for all busy/ done checking. 
(MSB) = Most Significant Bit 
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The bit flags in the Aux Status are defined as follows: 

Bit Meaning 

7 (MSB) UNUSED 

6 Unit Polled since last Status Read 

5 Sound Alarm 

4 Display Inhibited 

3 Cursor Inhibited 

2 Reverse Cursor Enabled 

1 Cursor Blink Enabled 

Keyboard Click Enabled 
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Command Descriptions 



Read Buffer Data Command (0) 

For a read data command, word is set to zero. Word 1 is the 
low order 8 bits of the buffer address to be read. Word 2 is the 
high order 3 bits (right justified) of the address. Word 3 is 
unused. Upon completion of the command, Word 2 contains the 
associated Extended Attribute Data and Word 3 contains the 
data from the specified buffer location: 

The internal IRMA screen buffer is 2000 characters long. This 
corresponds to the 25 lines by 80 characters per line. Even though 
the screen is displayed with the status line on the bottom, the 
status line is actually the first line in memory. The starting 
addresses of each line are listed later in this section. 

The Read Data command returns the buffer data, EAB data, and 
the main status. Each command returns main status in word 0. 



Word 



1 



Input 



Output 



3 
* EAB 



Value 



ADDR(L) 



ADDR(H) 



DATA 

Extended Attribute Buffer (Refer to Attribute Character 
explanations later in this document and in the Terminal 
Emulator User's Guide.) 



Command 


Main Status 


to DSI 




Address 


UNUSED 


(low) 




to 




read 




Address 


EAB* Data fro 


(high) 




to 




read 




UNUSED 


Data from DSI 
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Write Buffer Data Command (1) 

The write buffer command is used to write (modify) the contents 
of the screen buffer. Like read data, Word 1 and Word 2 contain 
the address of the buffer location where data is to be written. 
Word 3 is the data to be written. At command completion, the 
buffer is updated and main status is returned. 



Word 



Value 



Input 



Output 






1 


Command to 
DSI 


Main status 


1 


ADDR(L) 


Address (low) 
for write 


UNUSED 


2 


ADDR(H) 


Address 
(high) for 
write 


UNUSED 


3 


DATA 


Data for write 


UNUSED 
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Read Status/Cursor Position Command (2) 

This command reads the current status and cursor position from 
the DSL The status is returned as two bytes of bit flags. The 
cursor address is in the same format as the buffer address in 
read/write data commands. 

Word Value Input Output 






2 


Command to 
DSI 


Main status 


1 

2 
3 


ADDR(L) 

ADDR(H) 

DATA 


UNUSED 
UNUSED 
UNUSED 


Cursor 
address (low) 
Cursor 

address (high) 
Aux Status 
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Clear Main Status Bits Command (3) 

This command clears one or more of the main status bits. 
Word Value Input Output 






3 


Command to 
DSI 


Main status 


1 


UNUSED 


UNUSED 


UNUSED 


2 


UNUSED 


UNUSED 


UNUSED 


3 


MASK 


Bit clear mask 


UNUSED 



Five of the main status bits are set by specific conditions, but 
cleared only upon command. This allows each of these bits to be 
tested and cleared by different sections of the program. The clear 
mast controls which bits will be cleared. For each 1 bit in the 
clear mask, the corresponding bit in the status is cleared (i.e. set 
to 0). The clear mask can be used to reset multiple bits. Note 
that the returned status reflects the status AFTER the clear 
command has been executed. 

For ease of implementation, word is always maintained as the 
most current status. The normal program sequence would include 
the following: a read and test of word 0, a branch on condition to 
a service routine that is specific to the bits found to be set, and 
the Clear Main Status Bits command. 
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Send Keystroke Command (4) 

The send keystroke command causes the DSI to send the 
controller a key scan code. This is the function used to simulate a 
key active condition. The key scan code is the exact code which a 
3278-2 terminal would normally send, NOT an ASCII or 
EBCDIC character code. 



Word 



Value 



Input 



Output 






4 


Command to 
DSI 


Main status 


1 


UNUSED 


UNUSED 


UNUSED 


2 


UNUSED 


UNUSED 


UNUSED 


3 


CODE 


Key scan code 
to send 


UNUSED 



This command causes the Key Buffer Empty flag in the status 
byte to clear. It also checks the status of the Command Request 
flag. The Key Buffer Empty flag is guaranteed to be valid when a 
command is not in progress. The Key Buffer Empty flag must 
have a value of one before the key scan code can be sent. 
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Send Selector Pen Location (5) 

This command causes the cursor position of the light pen to be 
sent to the controller. This code is NOT in cursor address format. 



ord 


Value 


Input 


Output 





5 


Command to 
DSI 


Main status 


1 


ROW 


Row on 
screen 


UNUSED 


2 


FIELD ID 


Field ID on 
screen 


UNUSED 


3 


UNUSED 


UNUSED 


UNUSED 
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Execute Power-On-Reset Command (6) 

This command causes the DSI to appear to the controller as if 
the terminal has just been reset. This is used to signal the 
controller that the DSI needs power-up service and initialization. 

Word Value Input Output 






6 


Command to 
DSI 


Main status 


1 


UNUSED 


UNUSED 


UNUSED 


2 


UNUSED 


UNUSED 


UNUSED 


3 


UNUSED 


UNUSED 


UNUSED 
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Load Trigger Data AND Mask Command (7) 

This command loads a trigger system with data and mask values. 
This system is used to put a "watch" on a specific buffer memory 
location. The watch can be set to check for an exact match on a 
new value, an inexact (masked) match on a new value, or on any 
change to the current value. The mask word determines which 
type of test occurs. 

For each 1 bit in the mask, the data and the buffer MUST match 
for a trigger to occur. To make an exact comapre, the mask is set 
to OFFH (all ones) and the data is set to the desired value. 
When a match occurs, the Trigger Occurred bit in the main 
status will be set. If the mask does not contain all ones, only 
those bits which are one will be checked for a match for the 
trigger to occur. For example: 



Buffer Value 





1 





1 





1 





1 


Search Value 





1 





1 





1 


1 





Bit by Bit Compare 




















1 


1 


(l's = Difference) 


















(Exclusive OR) 


















Mask 


1 


1 


1 


1 


1 


1 


1 





Logical AND of Mask and 


















Compare 




















1 






The result is non-zero; the trigger did not occur 

The special case of a mask of all zeros is used to handle a test for 
change of state. At the time the mask is set to 0, the current 
value of the location in memory is saved by IRMA. This is then 
compared and any change is reported as a trigger. 



Word 



Value 



Input 



Output 






7 


Command to 
DSI 


Main status 


1 

2 


DATA 
MASK 


Data value for 
the compare 
Mask value 
for the 


UNUSED 
UNUSED 


3 


UNUSED 


compare 
UNUSED 


UNUSED 
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Load Trigger Address Command (8) 

The load trigger address command sets the buffer position for the 
data/mask compare. This address is in the same format as a 
cursor position and data read/write. After executing the Load 
Data and Address Trigger commands, the Trigger occurred bit 
should be cleared. Clear Main Status Bits Command (3) The 
Load Address command should follow the Load Data command 

Word Value Input Output 

8 Command to Main status 

DSI 

1 ADDR(L) Address (low) UNUSED 

for checking 

2 ADDR(H) Address UNUSED 

(high) for 
checking 

3 UNUSED UNUSED UNUSED 
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Load Attention Mask Command (9) 

The attention mask is applied to the regular status word. Any 
time a bit is SET in the status word, the corresponding bit in the 
Attention Mask is checked. If this bit is one, the Attention 
request flag is set. This only applies to bits changing from zero to 
one. 



Word 



Value 



Input 



Output 






9 


Command to 
DSI 


Main status 


1 


UNUSED 


UNUSED 


UNUSED 


2 


UNUSED 


UNUSED 


UNUSED 


3 


MASK 


Mask for 
status change 


UNUSED 
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Command Request / Attention Request Flags 

There are two flags which allow the 8X305 microprocessor and 
the System Unit 8088 CPU to handshake over commands. The 
two flags are Command Request and Attention Request. The 
8088can set Command Request, indicating that a new command 
has been placed in the dual ported memory. The Attention 
Request flag is set by the 8X305 processor to indicate a status 
change with Attention Mask bit set in the corresponding bit. The 
Atttention flag, set by the DSI 8X305 processor can be cleared 
only by the 8088. The current status of both flags can be read by 
the 8088 (and the 8X305). 

The status flag read command is an I/O read on device code 
227H. The resulting 8 bit number contains both flags as follows: 

Bit Meaning 

7 Attention Request flag is set by DSI and cleared by 

user program in the System Unit. 

6 Command Request flag is set by the user program in 

the System Unit to indicate a new command and is 
cleared by the DSI after command is accepted 

5-0 Unused 

To set the Command Request flag, the user program should 
execute an I/O write to device code 226H. To clear the Attention 
Request flag, the program should execute an I/O write to device 
code 227H. In either case, the data written is unimportant. 



Device 






Code 


Input 


Use 


226H 


I/O Write 


Set Command Request Flag 


227H 


I/O Write 


Clear Attention Request Flag 


227H 


I/O Read 


Read Current Flags 
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Key Scan Codes 



In normal 3 27x terminal operation, each keystroke is sent as a 
special key scan code to the controller. The controller responds by 
updating the screen (or screen buffer) to show the echo of this 
new keystroke. In the DSI, keystrokes are sent to the controller 
via a keystroke command using a key scan code. The controller 
generated screen buffer update occurs just like a terminal, and 
the program can read this buffer as desired. Note that some 
characters are generated by multiple scan codes, such as shift up, 
character, shift down. 

Key scan codes are specific to 327x systems, and are NOT ASCII 
or EBCDIC. The following table lists the keys and the proper 
scan codes: 



KEY SCAN CODES (327x) 




Scan Code 


Key 


(HEX) 


A 


4D, 60, CD 


B 


4D, 61, CD 


C 


4D, 62, CD 


D 


4D, 63, CD 


E 


4D,64, CD 


F 


4D,65, CD 


G 


4D, 66, CD 


H 


4D, 67, CD 


I 


4D, 66, CD 


J 


4D,69, CD 


K 


4D, 6A CD 


L 


4D, 6B, CD 


M 


4D, 6C, CD 


N 


4D, 6D, CD 


O 


4D, 6E, CD 


P 


4D, 6F, CD 


Q 


4D, 70, CD 


R 


4D, 71, CD 


S 


4D, 72, CD 


T 


4D,73, CD 


U 


4D, 74, CD 


V 


4D, 75, CD 


w 


4D, 76, CD 


X 


4D, 77, CD 


Y 


4D, 78, CD 


Z 


4D, 77, CD 



Key 



m 
n 
o 
P 

q 

r 
s 
t 
u 

V 

w 

X 

y 

z 



Scan Code 
(HEX) 

60 

61 

62 

63 

64 

65 

66 

67 

66 

69 

6A 

6B 

6C 

6D 

6E 

6F 

70 

71 

72 

73 

74 

75 

76 

77 

78 

77 
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Scan Code 




Scan Code 


Key 


(HEX) 




Key 


(HEX) 


) 


4D, 20 


, CD 





20 


! 


4D, 21 


CD 


1 


21 


@ 


4D, 22 


CD 


2 


22 


# 


4D, 23 


, CD 


3 


23 


$ 


4D, 24 


CD 


4 


24 


% 


4D, 25 


CD 


5 


25 


A 


4D, 26 


CD 


6 


26 


& 


4D, 27 


CD 


7 


27 


* 


4D, 28 


CD 


8 


28 


( 


4D, 29 


CD 


9 


29 


PF1 


4F, 21 


CF 


= 


11 


PF2 


4F, 22 


CF 


+ 


4D,11,CD 


PF3 


4F, 23 


CF 




33 


PF4 


4F, 24 


CF 




32 


PF5 


4F, 25 


CF 


\ 


15 


FF6 


4F, 26 


CF 


i 
i 


4D, 15, CD 


PF7 


4F, 27 


CF 


Attn 


50 


PF8 


4F, 28 


CF 


Sys Req 


4F, 50, CF 


PF9 


4F, 29 


CF 


Cursor 


51 


PF10 


4F, 20 


CF 


Clear 


4F, 51, CF 


PF11 


4F, 30 


CF 


Erase 


53 


PF12 


4F, 11 


CF 


Blink 


54 


PF13 


40 




Erase EOF 


55 


PF14 


41 




Print 


56 


PF15 


42 




Click 


57 


PF16 


43 




Return 


08 


PF17 


44 




Up 


0E 


PF18 


45 




Down 


13 


PF19 


46 




Left 


16 


PF20 


47 




Right 


1A 


PF21 


48 




Dup 


5F 


PF22 


49 




Mark 


5E 


PF23 


4A 




Del 


0D 


PF24 


4B 




Reset 


34 


PA1 


4F, 5F 


, CF 


Enter 


18 


PA2 


4F, 5E 


, CF 


Space 


10 


PA3 


4F, 0C 


, CF 


Shift down 


4D 


9 


12 




Shift up 


CD 


55 


4D, 12 


CD 


Alt down 


4F 


5 


7E 




Alt up 


CF 




4D, 7E 


, CD 


Tab fwd 


36 


/ 


14 




Tab bkwd 


35 


? 


4D, 14 


CD 


Home 


4F, 35, CF 


- 


30 




Backspace 


31 


Underscore 


4D, 30 


CD 


< 
> 


09 

40, 09, CD 
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The DSI Screen Buffer 



The screen buffer maintained in the DSI can be read by using the 
Read Data command. The user program must supply the address 
in the screen buffer as part of the Read Data command, and 
receive the data at that location upon completion. 

The screen buffer contains the 2000 characters which are 
normally displayed on the screen of a terminal. The first line of 
the screen begins in buffer location 50H. Each line then consists 
of 50H (80 decimal) characters in consecutive order. The starting 
address of each line is listed below: 





Starting 


Address 


Line # 


Hex 


Decimal 


1 


50 


80 


2 


AO 


160 


3 


F0 


240 


4 


140 


320 


5 


190 


400 


6 


1E0 


480 


7 


230 


560 


8 


280 


640 


9 


2D0 


720 


10 


320 


800 


11 


370 


880 


12 


3C0 


960 


13 


410 


1040 


14 


460 


1120 


15 


4B0 


1200 


16 


500 


1280 


17 


550 


1360 


18 


5A0 


1440 


19 


5F0 


1520 


20 


640 


1600 


21 


690 


1680 


22 


6E0 


1760 


23 


730 


1840 


24 


780 


1920 


Status 
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Bytes removed from the buffer are translated into characters 
using the following table: 








1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 





nul 


sp 





& 


> 
a 


a 


A 


A 


a 


q 


A 


Q 




P 




^ 


1 


em 




1 


_ 


e 


e 


E 


E 


b 


r 


B 


R 




S 






2 


ff 


i 


2 




i 


i 


I 


• • 

I 


c 


s 


C 


S 








z 


3 


nl 


5i 


3 







6 


o 


6 


d 


t 


D 


T 




A 






4 


stp 


/ 


4 




> 
u 


ii 


u 


u 


e 


u 


E 


U 




B 

CD 




'. 1 


5 


cr 


\ 


5 


+ 


a 


A 

a 


A 


A 


f 


V 


F 


V 




m 




/: 


6 




i 


6 


-i 





A 

e 


6 


E 


g 


w 


G 


w 




► 




X 


7 




i 
i 


7 


- 


Y 


i 


Y 


I 


h 


X 


H 


X 




□ 




■ 


8 


> 


7 


8 


o 


a 





A 


A 

o 


i 


Y 


I 


Y 




-* 




*- 


9 


< 


| 


9 




e 


u 


E 


A 

u 


i 


z 


J 


Z 




* 




* 


A 


[ 


$ 





A 


r 

e 


r 

a 


E 


r 

A 


k 


ae 


K 


AE 









o- 


B 


] 


<t 


* 


**** 


i 


r 

e 


I 


r 

E 


1 





L 







* 




"Ti 


C 


) 


i 


# 


• • 


6 


r 

i 


O 


r 
I 


m 


o 

a 


M 


o 

A 




B 




s 


D 


( 


V 

T 


@ 


\ 


> 
u 





U 


r 

o 


n 


c 


N 


c 









A 


E 


} 


Pts 


% 


/ 


ii 


r 

u 


Y 


r 

u 







O 






m 




B 


F 


{ 


H 


_ 


6 


c 


ii 


C 


N 


P 


* 


P 


* 




■ 




a 



For example, 2C is '#'; B8 is 'Y'; B3 is T\ 
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Attribute Characters 



Proper interpretation of data from the buffer requires attention to 
the attribute bytes. Normally, an attribute byte (byte from the 
last 4 columns of the preceding table) will precede and a second 
will follow any field on the screen. The byte preceding the field 
defines how that field will be handled. The data word bits for 
attribute characters are defined as follows: 

7 6 5 4 3 2 10 Bit Number 

1 1 a b c c d e Attribute Character 

1,1 = Attribute identifier 
a = Unprotected 

1 Protected 
b = Alphameric 

1 Numeric 
c,c = 00 Normal display, non-detectable 
01 Normal display, detectable 

10 Bright display, detectable 

1 1 Non display, non-detectable 
d = Reserved (Must always be zero) 
e = Modified Data Tag 

— Field has not been modified. 

1 — Field has been modified by 

the operator. 

The Extended Attribute Buffer (EAB) is subdivided into two 
types of attributes, the Extended Field Attribute (EFA) and the 
Extended Character Attribute (EC A). The EFA defines the field 
attributes while the ECA defines each character. The ECA is 
dependent upon the most recent EFA. When the ECA is 0, the 
attributes defined by the last EFA remain in effect. The chart 
shown here indicates this relationship. 



IRMA -23 



B 




R 


L 




E 


U 





D 


E 






C 


D 


P 
R 
O 
T 



Extended EFA ECA ECA ECA ECA EFA ECA 

Attribute G 
Buffer R 

E 

E 

N 

Attribute U A B 

Buffer N 

P 

R 

O 

T 

Characters 'A' and 'B' are defined to be 'green' and in an 
unprotected field. Character 'C is still part of the same 
unprotected field but has been redefined to 'blue'. Character 'E' is 
in a protected field and is defined as 'red'. Characters 'A' and 'B' 
have an ECA value of and their Extended Attribute 
characteristics revert to the most recent EFA. Character 'D' also 
has a value of 0. Its characteristic reverts to the most recent EFA 
of unprotected and green. An ECA is a temporary redefinition of 
a character and does not affect ECA characters with a value of 0. 
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For the Extended Field Attributes (EFA) the data word bits are: 



7 6 5 4 3 2 10 



Bit Number 



aabbbccc 



Extended Field Attributes 



Bits a, a =00 Normal Mode 
01 Blink Character 

10 Reverse Video Characters 

1 1 Underline Character 
Bits b,b,b = 000 Default to Base Color 

001 Blue 

010 Red 

011 Magenta 

100 Green 

101 Cyan 

110 Yellow 

111 White 

Bits c,c,c = 000 Base character set 
001 APL 

010 PS 2 (191 character) 
Oil PS 3 

100 PS 4 

101 PS 5 

110 PS 6 

111 PS 7 
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For the Extended Character Attributes (EC A) the data word bits 
are: 

7 6 5 4 3 2 10 Bit Number 

aabbbccc Extended Field Attributes 

Bits a,a = 00 Reverts to most recent EFA 
01 Blink Character 

10 Reverse Video Characters 

1 1 Underline Character 
Bits b,b,b = 000 Reverts to EFA 

001 Blue 

010 Red 

011 Magenta 

100 Green 

101 Cyan 

110 Yellow 

111 White 

Bits c,c,c = 000 Reverts to EFA 
001 APL 

010 PS 2 (191 character) 

011 PS 3 

100 PS 4 

101 PS 5 
HOPS 6 
111 PS 7 

When processing a screen buffer, it is necessary for the 
programmer to remember the most recent attribute byte 
encountered. Note that the screen is 1920 x 1 characters for 
attribute purposes. Ends of lines take no part in attribute 
interpretation. Also, attributes are displayed as blanks on the 
screen. 

Subroutines in BASICA are provided to handle line and field 
reads, keystroke sends, and status checks. These routines 
implement all necessary tabular character translations and proper 
handshaking. Using these subroutines is by far the easiest 
approach to this programming since all of the complicated 
functions are correctly handled. See the IRMA(TM) insert, 
BASICA Subroutines in the PC BASIC manual for these 
subroutines. 
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Installation 



IRMA requires NO pre-installation configuration. The circuit 
board may be installed into any available slot in the System Unit. 
See general notes in The IBM manual, Guide to Operations, 
Section 5, for installation assistance. 

INSTALLATION OF ANY BOARD INTO A PC MUST BE 
DONE ONLY WHEN UNPLUGGED. TO ENSURE 
SAFETY, UNPLUG THE SYSTEM UNIT LINE CORD 
BEFORE REMOVING THE COVER. AFTER 
INSTALLATION, COMPLETELY RE-ASSEMBLE THE 
CABINET BEFORE APPLYING POWER. 

After the IRMA board is installed, the PC exterior backpanel 
includes a BNC female connector. The BNC connector is 
standard for 3270 systems, and for many other types of coaxial 
connections. 

The BNC connector is a l/8th turn bayonet type device. 
Attachment requires only a gentle insertion push and a l/8th 
turn clockwise to lock. Reverse the procedure to disconnect. The 
BNC is normally attached to coaxial cable of the type RG-62AU. 
IBM specifications allow up to 1500 meters of cable to the 
controller, and the DSI conforms to the specification. 

Data on the cable is transferred at a bit rate of 2.3587 MHz. The 
data is encoded in a Manchester-like code, and transmitted base 
band. The IBM protocol is designed as a single drop (one 
terminal per coaxial cable) system. 

The 327x controller can be configured via system generation in 
several ways. IRMA emulates the 3278-2 command structure, 
and thus requires 3278-2 with a typewriter keyboard system 
configuration. In particular, terminals (like the 3278) and printers 
(like the 3287) are very different and coaxial cables configured 
for one will NOT work on the other. 
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APPENDIX A 



Technical Analysis Corporation 



DEMO . BAS 

10 DEF1NT A-Z 

100 DIM 1. TAB% I 1279 1,1. BUF*( 1920) 

102 GOSUB 50000 
104 P% = 
200 CLS 



12-21-1982 09:38:18 

' All integers for speed 

'^Dimension IRMA's tables 

'^Initialize IRMA's variables 
' Init current display row 
' Start with blank screen 



202 PRINT 
204 PRINT 
206 PRINT 
208 PRINT 
210 PRINT 
212 PRINT 
214 PRINT 
216 PRINT 
218 PRINT 
220 PRINT 
222 PRINT 
224 PRINT 



IRMA BASIC Subroutines Demonstration 
liny Terminal Emulator" 



1 *Ftame user area 



123456789 . 123456789 . 



123456789 . 123456789 . 



300 REM Main program loop 

302 GOSUB 51400 

304 IF 1.VR0%<1 THEN 314 

306 IF l.VR0*>5 THEN 314 

308 IF I.VCL%>20 THEN 314 

310 LOCATE 5+l.VR0%,l6+l.VCL%, 1 

312 GOTO 400 

314 LOCATE 4,14,1 

400 A$=1NKEY$ 

402 IF A$=CHR$(27) THEN SYSTEM 

404 IF LEN(A$)=0 I HEN 500 

406 l.VST$=A$ 

408 GOSUB 50600 

500 REM Refresh screen 

502 i.VCL%=X : 1.VR0%=P%+1 

504 GOSUB 51300 

506 LOCATE P%+6,16,0 

508 PRINT I.VSTJ 

510 P%=P%+1 : IF P%>4 THEN P*=0 

512 A#=FREI 1$) 

514 GOIO 300 



l.VRR%=20 



' #Main loop, set cursor 
Get 3278 cursor postion 
Test for out of range cond. 



' Position visible cursor 

' Off screen, but visible! 

'#Get a user keystroke 

' EXIT request is ESC key 

' No keystroke here... 

' Send keystrokes 

'*Refresh screen 

' RDABS 

' Move invisible cursor 

' Print buffer contents 

' Inc row number 

' Force string garbage collect 



Goto main loop 
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I 



50 DEF1NT A-Z 

52 PRINT "1RMA BASIC SUBROUTINES DEMONSTRATION - IRMASUBS DEMO 1.01 

54 PRINT : PRINT "Initializing IRMASUBS variables & tables 



100 DIM l.TAB%( 12791,1. BUF%( 1920) 



102 GOSUB 50000 
110 PRINT 

200 REM Field Report 

202 I.VFL%=1 

204 PRINT "Field Row Column Length Contents" 

206 FH$ = " tttttttt ttti tiU 

210 GOSUB 50700 

212 WHILE l.VER*=0 



ttttun &' 



214 


GOSUB 5090 


216 


l.VOO%=l 


218 


GOSUB 51100 


220 


I.VST$=LEF1$( I.VST$,40 


222 


PRINT USING FH$;1.VFL% 


230 


GOSUB 50800 


240 


WEND 



' ^Dimension IRMA's tables 
'^Initialize IRMA's variables 



'tfField Report 

' Start with the first field 
' Print field info header 
' Print using definition 
' Find the first field 
' Until no fields found 
' Read field contents 
' Get string from buffer start 
' Read string I.VSTS 
' Limit the length to screen 
VRO%, 1 .VCL%,1 -VFS%,I.VST$ 

' Find next field 



300 REM Modify a few fields 

302 l.VFL%=2 

310 GOSUB 50700 

320 l.VST$="Two" 

322 l.VOO%=l 

324 GOSUB 51200 

326 GOSUB 51000 

328 IF I.VER%<>0 THEN PRINT 

330 GOSUB 50800 

332 l.VST$=" Three" 

334 I.V00%=1 

336 GOSUB 51200 

338 IF I.VFS%)LEN( I.VST$ ) THEN 

340 GOSUB 51000 

345 STOP 



'^Modify field 

' Second screen field 

' Find the first field 

' A simple string 

' Beginning of data area 

' Put string in buffer 

' Write the field 

Error: " ; 1 . VER% ' Report possible error 

' Point to next field 

' More nice data 

' Buffer start 

' Put new string in buffer 

I .VFS%=LENI I.VSTS ) ' Shorten write length 

' Write the field 



400 REM Display part of the screen 
402 I.VCL%=1 : l.VRR*=40 
404 FOR 1.VR0%=1 TO 5 
406 GOSUB 51300 



' #Di splay 

' Column one 

' lop five lines 

' Read a short line 
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410 PRINT l.VSTS 
412 NEXT l.VRO* 

500 REM General status info 

502 GOSUB 51400 

504 PRINT "Buffer pointer ROW: " ; I . VR0% j " COLUMN 

510 GOSUB 50200 

520 GOSUB 900 

600 REM Send some keystrokes 

602 1 . VST $ =CHR$ I ) +CHR$ ( 15 ) + " AAA." 

604 GOSUB 50600 

612 I.VST$=CHR$(9)+"bbb" 

614 GOSUB 50600 

620 STOP 

700 REM Clear any status 

702 GOSUB 50200 

706 GOSUB 900 

710 GOSUB 50300 

712 GOSUB 50200 

714 GOSUB 900 



Print the line 
Again, with feeling 

•Status info 

Read cursor postion 
"il.VCL* 

Get slave status 

Display status 

•Keystrokes 
Back tab character w/ string 
Send keystrokes 
Forward tab 
Send keystrokes 



•Clear status 
Read current status 
Display current status 
Clear all set bits 
Get the status again 
Display the new status 



I 



800 REM Trigger stuffs 

802 1.VR0%=1 : I.VCL*=1 

804 I.VMS%=0 : l.WL%=0 

806 GOSUB 50400 

808 PRINT "Waitinq for any change in row 1, column 

820 WHILE LENl 1NKEY$)=0 

822 l.VT0%=2 

824 GOSUB 50500 

826 IF l.VTO%<0 THEN PRINT "."; : GOTO 840 

830 PRINT "Trigger! " 

836 GOTO 842 

840 WEND 

842 l.VST%=64 

844 GOSUB 50300 

848 PRINT "Waiting for an upper case A in row 1, 

850 I.VMS%=255 : l.VVL%=160 

852 GOSUB 50400 

860 WHILE LENl INKEY* )=0 

862 l.VT0*=2 

864 GOSUB 50500 



•Trigger tests 
Upper left corner 
Any change is a trigger 
Set trigger data & addr 

1" 
Until a key is pressed 
2 second timeout 
Wait for trigger event 



Clear trigger bit 



col umn 1 " 
Specific Upper case A 
Set the trigger again 
Until a key is pressed 
2 second timeout 
Wait for trigger event 



!« 
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866 IF l.VTO*<0 THEN PRINT "."; : GOTO 870 

867 PRINT "Trigger! " 

868 GOTO 872 
870 WEND 

872 l.VST*=64 
874 GOSUB 50300 
899 END 
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' Clear trigger bit 



900 REM Display status words 
912 PRINT 

918 PRINT "Main status word:" 
920 IF (I. VST* AND I.MAX*) THEN 
922 IF (I. VST* AND I.MTG*) THEN 
924 IF (I. VST* AND I.MKY*) THEN 
926 IF (I. VST* AND I.MPR*) THEN 
928 IF (I. VST* AND I.MCC*) THEN 
930 IF (I. VST* AND I.MDI*) THEN 
932 IF I I. VST* AND I.MCM*) THEN 
938 PRINT "Aux status word:" 
940 IF (I. VAX* AND I.MPO*) THEN 
942 IF II. VAX* AND l.MAL*) THEN 
944 IF (I. VAX* AND l.MDD*) THEN 
946 IF I I. VAX* AND I. MCI*) THEN 
948 IF II. VAX* AND l.MRC*) THEN 
950 IF (l.VAX* AND I.MBC*) THEN 
952 IF (l.VAX* AND I.MCK*) THEN 
980 RETURN 



IStatus display 



PRINT " Aux status change" 

PRINT " Trigger occurred" 

PRINT " Key buffer empty" 

PRINT " Controller issued reset" 

PRINT " Last command complete" 

PRINT " Buffer dirty (modified)" 

PRINT " Buffer pointer moved" 

PRINT " Poll occurred 

PRINT " Alarm requested" 

PRINT " Display disabled (Inhibited)' 

PRINT " Cursor inhibited" 

PRINT " Reverse video cursor" 

PRINT " Blinking cursor" 

PRINT " Keyboard clicker enabled" 
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50000 REM Initialize IRMA interface variables 

50002 RESTORE 50036 

50004 READ I .CRD*,1.CWR*,I.CAC*,1.CCL*,1 .CKY* 

50006 READ 1 .CSP* , 1 .CXP* , 1 .CMD* , 1 .CTA* , I .CIM* 

50008 READ 1 .MAX*, I .MTG*, 1 .MKY* , 1 .MXX* , 1 .MPR* 

50010 READ l.MCC*,I.MDI*,l.MCM* 

50012 READ I .MXX*, 1 .MPO*, I .MAL* , I .MDD* , I .MCI* 

50014 READ I .MRC* , 1 .MBC*, I .MCK* 

50016 READ I . RGO* , I . RG1* , I . RG2* , I . RG3* 

50018 READ I .RST* , I .RAK*, I .RAF* 

50020 READ I .MAT* , I .MBS* 

50022 READ I . VER*, I . VST*, 1 . VRO*, J . VCL%, 1 . VMS* 

50024 READ I . VVL* , I . VFG*, 1 . VST* , 1 . VFL* , 1 . VT0* 

50026 READ I . VT1* , I . VT2*, 1 . VT3*, I . VS0$ , I . VS1* 

50028 READ 1 . VAX* , I . VS2$ , I . VS3* , I . VS4$ , I . VS5$ 

50030 READ 1 . VS6$ , I . VS7$ , I . VS8$ , I . VS9$ , I . VT4* 

50032 READ 1 . VT5*, 1 . VCB*, 1 . VCE* , 1 . VT8* , I . VT9* 

50034 READ I . VOO* , I . VRR*, 1 . VFS* , I . VTO* 

50036 DATA 0,1,2,3,4,5,6,7,8,9 

50038 DATA 128,64,32,16,8,4,2,1 

50040 DATA 128,64,32,16,8,4,2,1 

50042 DATA &H220 ,&H221 ,&H222 ,&H223 

50044 DATA &H226,&H227 ,&H227 

50046 DATA 128,64 

50048 DATA , , , , , , , " " , , , , , , " " , " " 

50050 DATA ,"","" , " " , " " , " " , " " , " " , " " , 

50052 DATA 0,0,0,0,0,0,0,0,5 

50058 DEF SEG 

50060 BLOAD " IRMATABS.OVR" , VARPTRI I . TAB%( ) ) 

50062 RETURN 



UNIT - IRMASUBS Rev 1.01 
Point to initial values 
Load command numbers 

Main status masks 

Aux status masks 

Communication registers 

Handshake masks 
General variables 



50100 REM Power on reset simulation 

50102 I.VER*=0 

50104 OUT l.RG0*,l.CXP* 

50106 GOSUB 58000 

50108 RETURN 



'*XPOR ( l.VER* ) 

' Reset error flag 

' Set commmand in place 

' Start & wait for slave 



PS 



I 



50200 REM Get slave status 

50202 l.VER*=0 

50204 OUT I.RG0*,1 .CAC* 

50206 GOSUB 58000 

50208 1.VAX%=1NP( 1 . RG3* ) 

50210 l.VST*=INP( I.RG0*) 



'*GSTAT I I.VST*, l.VER* 1 

' Reset error flag 

' Get aux status & cursor 

' Start & wait for slave 

' Get aux 

' Get main 
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50212 RETURN ' Exit! 



I 

OS 



50300 REM Reset slave status bits 

50302 l.VER*=0 

50304 OUT I . RGO* , 1 . CCL* 

50306 OUT I.RG3*,I.VST% 

50308 GOSUB 58000 

50310 RETURN 

50400 REM Set trigger event & address 

50401 l.VER*=0 

50402 GOSUB 58200 

50403 IF l.VER*<>0 THEN RETURN 

50404 OUT I.RG0*,1.CTA* 

50406 I . VT0*= ( 1 . VCL*- 1 ) + ( 1 . VRO**80 I 
50408 OUT l.RG2*,I.VTO*\&H100 

50410 OUT 1.RG1*,1.VT0% AND &HFF 

50411 GOSUB 58000 

50412 IF (d.VVL* OR I.VMS% ) AND &HFF00)<)0 

50417 IF l.VER%<>0 THEN RETURN 

50418 OUT I.RG0*,I.CMD* 

50419 OUT l.RGl*,l.VVL* 

50420 OUT 1 . RG2* , 1 . VMS* 
50422 GOSUB 58000 
50424 RETURN 



*RSTAT ( I. VST*, I.VFR* ) 
Reset error flag 
Clear status command 
Status bits to clear 
Start & wait for slave 
Exit! 

*STDNM ( I.VRO*, I.VCL* ) 
l.VMS*, l.VVL* 

Check row and column values 

Error if bad input 

I . VER* ) 

Compute address 

High part of address 

Low part of address 

Start slave 
THEN I.VER%=4 : RETURN ' Bad byte 

Give up if dead slave 

Setup mask & data 

Data 

Mask 

Set trigger. 

Exit! 



50500 REM Wait for trigger event 

50502 I.VER*=0 

50504 l.VS0$=TIME$ 

50506 IF IINPd.RGO*) AND l.MTG*)<>0 THEN RETURN 

50508 I.VER*=10 

50510 IF I.VTO*<0 THEN RETURN 

50512 IF I.VS0$=TIME$ THEN 50502 

50514 I.VTO*=I.VTO*-l 

50516 GOTO 50502 

50600 REM Send keystrokes from I.VSTJ 

50602 l.VER%=0 

50604 1 . VT0*=LEN( I . VST$ ) 

50606 I.VT1*=1 

50608 WHILE I.VT0*>0 

50610 l.VT2*=ASC(MID*( I . VST$ , I . VT1*, 1 ) I 

50612 IF l.VT2*>0 THEN 50620 



*WTRIG ( I.VT0*, I.VER* ) 
Reset error flag 
Set the stopwatch 
All done! 

Potential timeout. 
Time has run out. 
Still time, try again 
Drop a grain of sand. 
Do it some more. 

#KEYS ( I.VST$, I.VER* ) ) 
Reset error flag 
Count of remaining chars 
Current pointer 
Only until none remain... 
Get character value 
Not an extended code... 
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50614 I.VT0»=1.VT0*-1 : I . VT1*=1 . VT1*+1 

50616 IF 1.VT0%<1 THEN 50658 

50618 I.VT2%=ASC(MID$( I . VST$ , I . VT1%, 1 ) )+256 

50620 l.VT2%=I.TAB%( 1 .VT2%+&H200 ) 

50622 IF (1.VT2* AND &HFF)=0 THEN 50634 

50624 l.VT3% = I.TAB%< I I.VT2% AND &HFF1+&H400) 

50626 l.VT3*=I.VT3% AND &H7F 

50628 GOSUB 58100 

50630 IF I.VER%=0 THEN 50634 

50632 I.VT0%=-1 : GOTO 50658 

50634 IF (I.VT2* AND &HFF00U0 THEN 50644 

50636 l.VT3*=l.TAB»( I 1 . VT2%\&H100 1+&H400 ) 

50638 GOSUB 58100 

50640 IF l.VER*=0 THEN 50644 

50642 I.VT0%=-1 : GOTO 50658 

50644 IF ll.VT2% AND &HFF)=0 THEN 50654 

50646 I.VT3*=I.TAB%( ( I.VT2* AND &HFF 1+&H400 ) 

50648 GOSUB 58100 

50650 IF I.VER%=0 THEN 50654 

50652 1.VT0%=-1 : GOTO 50658 

50654 I.VT0%=I.VT0%-1 

50656 1.VT1%=I.VT1%+1 

50658 WEND 

50660 RETURN 



Get set to eat next char 

EXIT if partial char 

Offset into extended table 

Look up key codes 

Skip shift key 

Get scan code of shift 

Strip up/dn control bit 

Transmit scan code 

Skip error exit 

Error on key attempt ABORT 1 

Handle possible lone shift 

Get scan code 

Transmit it. 

Skip error exit 

PUNT. 

Skip shift key 

Get scan code of shift 

Transmit scan code 

Skip error exit 

Error on key attempt ABORT! 

One less character to send 

Point to next character 

Do until done or error 



I 
^1 



50700 REM Find field I.VFL* 

50702 l.VER%=0 

50703 IF (I.VFL*<1) OR I I . VFL%> 1920 ) THEN I.VER* 

50704 I.VCE%=80 : I.VCB% = 80 : I .BUF%( ) =&HC0 
50706 OUT I.RG0%,I .CRD% 

50708 IF I.VFL%=1 THEN 50738 

50710 I.VT1%=1 

50712 OUT I.RG1*,I.VCE% AND &HFF 

50714 OUT I.RG2*,I.VCE*\&H100 

50716 GOSUB 58000 

50718 IF I.VER%<)0 THEN RETURN 

50720 I.VT2*=1NPI I . RG3% ) 

50722 IF I.VT2%<&HC0 THEN 50730 

50724 IF II.VT2* AND &H20D0 THEN 50730 

50725 I.VCB*=1.VCE% 

50726 I.VT1*=I.VT1%+1 

50727 l.BUF*(0)=I.VT2* 

50728 IF I.VT1%=I.VFL% THEN 50736 



#F1ND ( I.VFL%, I.VCL% ) ) 

l.VRO%, I.VER* ) 
7 : RETURN 

Start at upper left 

Preset the read command 

Default screen condition 

Current field number 

Low order address 

High order address 

Start slave & wait 

PUNT if read error. 

Get data 

Skip if not attribute 

Skip if protected 

Save start position 

We've found the next field! 

Init buffer attribute 

Exit the search loop 
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I 

00 



S0730 1.VCE*=1.VCE%+1 

50732 IF I.VCE%>=2000 THEN I.VER%=7 : RETURN 

50734 GOTO 50712 

50736 l.VCE*=I.VCE*+l 

50738 IF I.VCE*>=2000 THEN I.VER%=7 : RETURN 

50740 l.VRO%=I.VCE%\80 

50742 I.VCL*=( I.VCE* MOD 80 1+1 

50744 I.VFS%=0 

50746 OUT I.RG1%,I.VCE% AND &HFF 

50748 OUT I.RG2*,I.VCE%\&H100 

50750 GOSUB 58000 

50752 IF I.VERloO THEN RETURN 

50754 l.VT2*=INP( I.RG3*) 

50756 IF I.VT2*>=&HC0 THEN RETURN 

50758 I.VFS%=I.VFS%+1 

50760 I.VCE%=I.VCE%+1 

50762 IF I.VCE%>=2000 THEN RETURN 

50764 GOTO 50746 

50800 REM Find NEXT field I.VFL%+1 

50801 I.VER%=0 

50802 I.VT1%=I.VFL% : I . VFL%=1 . VFL%+1 
50804 IF I.VCE%<80 THEN I.VER%=11 : RETURN 
50806 IF l.VCE%>=2000 THEN I.VER%=7 : RETURN 
50808 OUT I.RG0»,1.CRD% 

50810 OUT I.RG1*,1.VCE* AND &HFF 

50812 OUT l.RG2%,I.VCE*\&H100 

50814 GOSUB 58000 

50816 IF l.VER%>0 THEN RETURN 

50820 I.VT9%=INP( I.RG3*) 

50822 IF I.VT9%<&HC0 THEN I.VER%=11 : RETURN 

50830 GOTO 50712 

50900 REM Read field 

50902 l.VER*=0 : I.VT2%=0 

50904 IF l.VCB%=80 THEN 50924 

50906 IF l.VCB%<80 THEN I.VER%=11 

50908 IF I.VCB%>=2000 THEN I.VER%=11 

50910 OUT I.RG0%,I .CRD% 

50912 OUT 1.RG1%,1 .VCB» AND &HFF 

50914 OUT l.RG2%,I .VCB*\&H100 

50916 GOSUB 58000 

50918 1.VT3%=1NP( I.RG3%) 



Try next location 

Field not found anywhere! 

Read the next character 

Point to first char of field 

Field at last col/row 

Make the row number 

And column number 

Length of field 

Low order address 

High order address 

Start read operation 

Quit if slave is dead 

Get data 

Next attribute found 

Count the chars in field 

Point to next char 

Ran off end of screenl 

Continue eating chars 

*FNEXT ( I.VFL*, I.VCL»,I 
( I . VRO* , I . VER* ) 
Next field 
Illegal cursor value 
No next field. 
Set read command in place 
Low order address 
High order address 
Get data at current position 
Give up if slave dead 
This should be attribute 
Invalid cursor position 
Enter general FIND code 

*RDFLD ( I.VER* 1I.VCL*, ) 
Reset error flag & buffer ptr 
Special case of upper corner 
Invalid start address 
Beyond end of screen 
Set read command 
Low order address 
High order address 
Read the leading attribute 
Data word 
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50920 IF (1.VT3* AND &HE0 X >&HC0 THEN 

50922 GOTO 50930 

50924 l.VT2*=l 

50926 I.BUF%(0)=&HC0 

50930 OUT I.RG0%,I.CRD% 

50934 WHILE 1 . VT2%< =1 . VFS% 

50936 1 . VT9%= I . VT2%+ 1 . VCB* 

50938 IF I.VT9%>=2000 THEN I.VER%=1 

50940 OUT I.RG1%,I.VT9* AND &HFF 

50942 OUT l.RG2%,I.VT9%\&H100 

50946 GOSUB 58000 

50948 IF I.VER%=0 THEN 50960 

50950 l.VT2*=9999 

50952 GOTO 50970 

50960 I.BUF%(l.VT2%)=CVl(CHR$l 1NP( I 

50962 l.VT2*=I.VT2*+l 

50970 WEND 

50972 RETURN 



l.VER%=5 : RETURN ' Bad field type 

' Scan and eat field 

' Increment buffer pointer 

' Fake attribute 

' Setup the read command 

' Until out of characters 

' Offset to character 
1 : GOTO 50950 ' bad field specs 

' Set low address 

' High address 

' Xecute read operation 

' Abort if slave dead 

' Exit loop 

. RG3% ) ) +CHRS I INP( I . RG2% ) ) ) 

' Point to next location 

' All done 



I 



51000 
51002 
51004 
51006 
51008 
51010 
51012 
51014 
51016 
51018 
51020 
51022 
51024 
51026 
51028 
51030 
51032 
51034 
51036 
51038 
51039 
51040 
51042 
51048 



REM Write field 

I.VER%=0 

IF l.VCB*<80 THEN I.VER%=11 

IF l.VCB%)=2000 THEN 1.VER%=11 

IF I.VCB%+I.VT1%>2000 THEN I.VER%=12 

IF l.VER%o0 THEN RETURN 

OUT l.RGOi.I.CRD* 

OUT I . RG1* , 1 . VCB% AND &HFF 

OUT l.RG2%,I.VCB%\&H100 

GOSUB 58000 

IF l.VER*<>0 THEN RETURN 



IF (1NPI1.RG3*) AND &HFEKX l.BUF%(0) AND 
l.BUFfcl 0)=I.BUF%( 0) OR 1 
l.VT2%=0 

IF (l.BUFKO) AND &H10)=0 THEN 51052 
1.VT2%=1 
WHILE l.VT2»<=l.VTl% 

l.VT0*=l.BUF*(I.VT2*l AND &HFF 
IF I.VT0%)=&H20 THEN IF I.VT0%<=&H29 T 
IF l.VT0%=&H31 THEN 51048 
IF I.VT0%=&H32 THEN 51048 
IF I.VT0%=&H35 THEN 51048 
I.VER%=6 : I.VT2%=9999 
l.VT2*=I.VT2*+l 



'*WRFLD I I.VER% )I.VCL%,) 

' Reset error flag 

' Illegal address 

' Too large 

' Field too long for screen 

' Quit if bad parameters 

' Read attribute from screen 

' Low address 

' High address 

' Xecutel 
' Abandon if dead slave 
&HFE) THEN I.VER%=13 : RETURN 
' Set the MDT flag 
' First byte of buffer to write 
' Check for numeric only 
' First buffer location to chk 
' Do until all chars done 
' Mask off any previous EAB 
HEN 51048 ' 0-9 is Ok 
' Minus Ok 
' Period Ok 
' Plus Ok 

' "Non-numeric" char 
' Next character 
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I 

O 



51050 WEND 

51052 l.VT2%=0 

51054 OUT l.RG0%,I.CWR% 

51056 WHILE I . VT2%< =1 . VFS% 

51058 l.VT0%=I.VCB%+I.VT2% 

51060 OUT 1.RG1%,I.VT0% AND &HFF 

51062 OUT I.RG2%,1.VT0%\&H100 

51064 OUT I.RG3%,I.BUF%II.VT2%) AND &HFF 

51066 GOSUB 58000 

51068 IF I.VER%<>0 THEN I.VT2%=9999 

51070 1.VT2%=1.VT2%+1 

51072 WEND 

51074 RETURN 

51100 REM Get string from buffer 

51105 l.VER%=0 : l.VT2%=0 

51108 IF l.VOO*>1920 THEN I.VER%=12 : RETURN 

51110 IF l.VOO*<0 THEN I.VER%=12 : RETURN 

51112 I.VST$="" 

51114 WHILE ( l.VOO%<=I.VFS%) AND (l.VT2%=0> 

51116 l.VST$=I.VST$+CHR$< I.TAB%( ( I.BUF%( I.VOO* 

51118 l.VOO%=l.VOO%+l 

51120 IF LENl I.VST$)=254 THEN I.VT2%=1 

51122 WEND 

51126 RETURN 



Loop 

Start from the beginning 

Set write command 

Until all characters written 

Compute address 

Low address 

High address 

Data w/o EAB 

Make slave do it. 

Force exit if slave DOA 

Next location to write 

Do it again 

All done' 

*GSTR( I.VSTt, I.VT1* 

I.VT0* ) 

Offset too large 
Offset negative 
Clear string 

AND &HFF1+&H100) ) 
Point to next char 
Overrun 



51200 REM Put string in buffer 

51202 l.VER*=0 

51204 IF l.VOO%+LEN(I.VST$ 1-1)1 

51206 I.VT3*=LENII.VST$I : IF I 

51208 l.VT2%=0 

51210 WHILE l.VT2%<l.VT3% 

51212 l.BUF%( I.V00»+I.VT2*)=1 

51214 1.VT2*=I.VT2%+1 

51216 WEND 

51218 l.V00%=I.V00*+I.VT2% 

51220 RETURN 



'*PSTR( I.VSTt, I.VT1* 

I.VT0% ) 
.VFS% THEN I.VER»=12 : RETURN ' Too long 
.VT3*=0 THEN RETURN ' Zero strings easy' 
Offset into buffer 
While still characters 
TAB%1 ASCI MID$ ( 1 . VSTS , I . VT2%+ 1,1)1 +&H0 1 
Move pointer 

Pointer for next 
Transfer complete 



51300 REM Read screen absolute 

51302 l.VER%=0 

51304 l.VT0%=I.VRO%*80+I.VCL%-l 

51306 IF I.VT0*<0 THEN 1.VER%=11 : RETURN 

51308 IF I.VT0%>=2000 THEN I.VER%=11 : RETURN 



*ABSRD ( I.VER*, I.VST$, 
I.VS0J, I.VRO*, 
I.VCL%, I.VRR% ) 
Invalid cursor address 
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51310 IF I.VT0%+1.VRR%>2000 THEN l.VER%=12 

51312 1.VT1*=0 : I.VST$="" : I.VS0$="" 

51314 OUT l.RG0*,l.CRD* : 1 . VT2%=I . VT0*+I . VRR% 

51316 WHILE I.VT0»<1.VT2* 

51318 OUT 1.RG1»,1.VT0% AND &HFF 

51320 OUT I.RG2%,1.VT0%\&H100 

51322 GOSUB 58000 

51324 IF l.VER%<>0 THEN l.VT0%=9999 

51326 l.VST$=l.VST$+CHR$( l.TAB%l 1NP( 1 .RG3* I+&H100 ) I ' Get char & convert 

51328 1.VS0$=I.VS0$+CHR$( INPi I . RG2% ) I ' Unmodified EAB 

51340 1.VT0*=I.VT0%+1 ' Next character 

51342 WEND 

51344 RETURN 



RETURN ' Can't read that much 
' Offset from start 
Set a read commnad 
Until all characters read 
Low order address 
High order address 
Execute read operation 
Force loop exit 



51400 REM Read 3278 cursor position 

51402 l.VER%=0 

51406 OUT I.RG0%,1.CAC% 

51408 GOSUB 58000 

51410 l.VT0%=( 1NP( I.RG2%)*&H100)+INPI 1.RG1*) 

51411 IF l.VER*<>0 THEN RETURN 

51412 l.VRO%=l.VT0%\80 

51414 l.VCL%=( 1.VT0* MOD 80 1+1 
51416 RETURN 



*CPOS( I.VRO*, I.VCL%, 

I . VER% ) 

1 Status & cursor read 
Start the slave 
Get absolute address 
Dead slave, quit action 
1 Compute row 
And column 
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I 



58000 REM Start & wait for slave 

58002 l.VS9*=TIME$ : I.VT9*=0 

58004 OUT l.RST%,0 

58006 1.VT8* = 1NP( I.RAF* ) AND I.MBS* 

58008 IF 1.VT8* = THEN RETURN 

58010 IF I.VS9$=T1ME$ THEN 58006 

58012 I.VS9$=T1ME$ : I . VT9%=1 . VT9%+1 

58014 IF l.VT9%<3 THEN 58006 

58016 l.VER»=l 

58018 RETURN 

58100 REM Send key scan code from I.VT3% 

58102 1.VS9$=T1ME$ : I.VT9%=0 

58104 IF (INPd.RGO*) AND l.MKY%)>0 THEN 58114 

58106 IF I.VS9$=TIME$ THEN 58104 

58108 I.VT9%=1.VT9%+1 : IF I.VT9%<4 THEN 58104 

58110 l.VER%=9 

58112 RETURN 

58114 IF l.VT3%=0 THEN I.VER%=15 : RETURN 

58115 OUT I.RG0%,I.CKY% 

58116 OUT I.RG3*,I.VT3* 
58118 GOSUB 58000 
58120 RETURN 



! Start & wait for slave 
A simulated stopwatch 
Start the slave 
Get slave busy bit 
Return with command complete 
Loop until clock ticks 
Three times 

Slave timeout 



*Send key scan code 
Make stopwatch 
Key buffer is ready 
Loop until clock tick 
Time has not run out 
Keystroke timeout 

Invalid scan code 
Keystroke command 
Scan code 
Fire up the slave 
And we ' re done ! 



58200 REM - Verify Row and Column '#Verify ROW/COL 

58206 IF (I.VRO%<0) OR (I.VRO*>24) THEN I.VER%=2 : RETURN 

58208 IF (1.VCL%<1) OR (l.VCL*>80) THEN I.VER%=3 : RETURN 
58210 RETURN 
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> 

I 



256+256+512+256 



100 PRINT "Building IRMATABS.OVR for IRMASUBS package" 

110 DEF1NT A-Z 

115 DEF SEG 

120 DIM I.TAB%( 1279) 

130 RESTORE 

135 FOR I.VT0*=0 TO 1279 

140 READ I.TAB%( I.VT0*) 

145 NEXT 

200 BSAVE "IRMATABS.OVR" .VARPTR I I. TAB%( ) 1,2560 ' Save the whole array 

210 PRINT "Build complete. " 

220 NEW 



300 REM Offsets into I . TAB% are as follows: 




302 REM 














304 REM 


000 - 


ASCII to buffer 


code table (256 entrys) 


306 REM 


256 - 


Buffer code to ASCII table (256 entrys ) 


308 REM 


512 - 


Normal keycodes 


to key no. (256 entrys) 


310 REM 


768 - 


Extended keycodes to key no. 1 256 entrys) 


312 REM 


1024 - 


Key number to scan code 


( 256 entrys ) 


320 REM 














59600 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59601 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59602 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59603 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59604 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59605 


DATA 


&h0000 


&h0000 


&h0010 


&h0019 


&h003C 


&h002C 


59606 


DATA 


&h001A 


&h002E 


&h0030 


&h0012 


&h000D 


&h000C 


59607 


DATA 


&h00BF 


&h0035 


&h0033 


&h0031 


&h0032 


&h0014 


59608 


DATA 


&h0020 


&h0021 


&h0022 


&h0023 


&h0024 


&h0025 


59609 


DATA 


&h0026 


&h0027 


&h0028 


&h0029 


&h0034 


&h00BE 


59610 


DATA 


&h0009 


&h0011 


&h0008 


&h0018 


&h002D 


&h00A0 


59611 


DATA 


&h00Al 


&h00A2 


&h00A3 


&h00A4 


&h00A5 


&h00A6 


59612 


DATA 


&h00A7 


&h00A8 


&h00A9 


&h00AA 


&h00AB 


&h00AC 


59613 


DATA 


&h00AD 


&h00AE 


&h00AF 


&h00B0 


&h00Bl 


&h00B2 


59614 


DATA 


&h00B3 


&h00B4 


&h00B5 


&h00B6 


&h00B7 


&h00B8 


59615 


DATA 


&h00B9 


&h000B 


&h0015 


&h000A 


&h0036 


&h002F 


59616 


DATA 


&h003D 


&h0080 


&h0081 


&h0082 


&h0083 


&h0084 


59617 


DATA 


&h0085 


&h0086 


&h0087 


&h0088 


&h0089 


&h008A 


59618 


DATA 


&h008B 


&h008C 


&h008D 


&h008E 


&h008F 


&h0090 


59619 


DATA 


&h0091 


&h0092 


&h0093 


&h0094 


&h0095 


&h0096 


59620 


DATA 


&H0097 


&h0098 


&h0099 


&h000F 


&h0017 


&h000E 


59621 


DATA 


&h003B 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59622 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59623 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


59624 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 
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59625 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59626 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59627 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59628 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59629 


DATA 


&h0000 


&h0000 


&h0000 


&H0000 


&h0000 


&h0000 




59630 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59631 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59632 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59633 


DATA 


&h0000 


&h0000 


&h0000 


ShOOOO 


&h0000 


&h0000 




59634 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59635 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59636 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&H0000 




59637 


DATA 


&h0000 


&H0000 


&H0000 


&h0000 


&h0000 


&h0000 




59638 


DATA 


&h0000 


&H0000 


&h0000 


&h0000 


&h0000 


&h0000 




59639 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59640 


DATA 


&h0000 


&K0000 


&h0000 


&h0000 


&H0000 


&h0000 




59641 


DATA 


&h0000 


ShOOOO 


&h0000 


&h0000 


ShOOOO 


&h0000 




59642 


DATA 


&h0000 


&h0000 


&h0000 


ShOOOO 








59700 


DATA 


&h0020 


&h0020 


&h0020 


&H0020 


&h0020 


&h0020 : 


' EBCDIC 


59701 


DATA 


&h0020 


&h0020 


&h003E 


&h003C 


&h005B 


&h005D 




59702 


DATA 


&h0029 


&h0028 


&h007D 


&h007B 


&h0020 


&h003D 




59703 


DATA 


&h0027 


&h0022 


&h002F 


&h005C 


&H007C 


&h007C 




59704 


DATA 


&h003F 


&h0021 


&h0024 


&h0063 


&h006C 


&h0079 




59705 


DATA 


&h0070 


&h006F 


&h0030 


&H0031 


&h0032 


&h0033 




59706 


DATA 


&h0034 


&h0035 


&h0036 


&h0037 


&h0038 


&h0039 




59707 


DATA 


&H0062 


&h0073 


&h0023 


&h0040 


&h0025 


&h005F 




59708 


DATA 


&h0026 


&h002D 


&h002E 


&h002C 


&h003A 


&h002B 




59709 


DATA 


&h002D 


&h005F 


&h002E 


&h0020 


&h005E 


&h007E 




59710 


DATA 


&h0022 


&h0060 


&H0027 


&h0035 


&h0061 


&h0065 




59711 


DATA 


&h0069 


&h006F 


&h0075 


&h0061 


&h006F 


&h0079 




59712 


DATA 


&h0061 


&h0065 


&h0065 


&h0069 


&h006F 


&h0075 




59713 


DATA 


&h0075 


&h0063 


&h0061 


&h0065 


&h0069 


&h006F 




59714 


DATA 


&h0075 


&h0061 


&h006F 


&h0079 


&h0061 


&h0065 




59715 


DATA 


&h0065 


&h0069 


&h006F 


&h0075 


&h0075 


&h0063 




59716 


DATA 


&H0041 


&h0045 


&h0049 


&h004F 


&h0055 


&h0041 




59717 


DATA 


&h004F 


&h0059 


&h0041 


&h0045 


&h0045 


&h0049 




59718 


DATA 


&h004F 


&H0055 


&h0059 


&h0043 


&h0041 


&h0045 




59719 


DATA 


&h0049 


&h004F 


&h0055 


&h0041 


&h0045 


&h0049 




59720 


DATA 


&h004F 


&H0055 


&h0041 


&h0045 


&h0049 


&h004F 




59721 


DATA 


&h0055 


&h004E 


&h0061 


&h0062 


&h0063 


&h0064 




59722 


DATA 


&h0065 


&h0066 


&h0067 


&h0068 


&h0069 


&h006A 




59723 


DATA 


&h006B 


&H006C 


&h006D 


&h006E 


&h006F 


&h0070 




59724 


DATA 


&H0071 


&h0072 


&h0073 


&h0074 


&h0075 


&h0076 




59725 


DATA 


&h0077 


&h0078 


&h0079 


&h007A 


&h0061 


&h006F 
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S9726 


DATA 


&h0061 


&h0063 


&h003B 


&h002A 


&h0041 


&h0042 




59727 


DATA 


&h0043 


&h0044 


&h0045 


&h0046 


&h0047 


&h0048 




59728 


DATA 


&h0049 


&h004A 


&h004B 


&h004C 


&h004D 


&h004E 




59729 


DATA 


&h004F 


&h0050 


&H0051 


&h0052 


&h0053 


&h0054 




59730 


DATA 


&H0055 


&h0056 


&H0057 


&h0058 


&h0059 


&H005A 




59731 


DATA 


&h0041 


&h004F 


&h0041 


&h0043 


&h003B 


&h002A 




59732 


DATA 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 




59733 


DATA 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 




59734 


DATA 


&h0020 


&h0020 


&h0020 


&h0020 


&h0050 


&h0053 




59735 


DATA 


&h0041 


&h001E 


&h0042 


&h0036 


&h0010 


&h0016 




59736 


DATA 


&h001A 


&h00E9 


&h0D06 


&h0001 


&h0042 


&h0003 




59737 


DATA 


&h00A8 


&hOODB 


&h0020 


&h0020 


&h0020 


&h0020 




59738 


DATA 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 




59739 


DATA 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 


&h0020 




59740 


DATA 


&h0015 


&h0017 


&h005A 


&h005F 


&h0009 


&h000A 




59741 


DATA 


&h0058 


&h0016 


&h001B 


&h0025 


&h00FB 


&h00B7 




59742 


DATA 


&h0034 


&h0041 


&h00E9 


&h0002 








59800 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59801 


DATA 


&h0000 


&h0000 


&hl000 


&hl500 


&h3400 


&h0000 




59802 


DATA 


&h0000 


&h4C00 


&h0000 


&h0000 


&h0000 


&h0000 




59803 


DATA 


&H0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59804 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&H0000 




59805 


DATA 


&h0000 


&h0000 


&h4A00 


&h2039 


&h3239 


&h0639 




59806 


DATA 


&h0739 


&h0839 


&hOA39 


&h3200 


&hOC39 


&hOD39 




59807 


DATA 


&h0B39 


&h0F39 


&h4200 


&h0E00 


&h4300 


&h4400 




59808 


DATA 


&h0D00 


&h0400 


&h0500 


&h0600 


&h0700 


&h0800 




59809 


DATA 


&h0900 


&h0A00 


&h0B00 


&h0C00 


&h3139 


&h3100 




59810 


DATA 


&H.3A00 


&h0F00 


&h3A39 


&h4439 


&h0539 


&h2839 




59811 


DATA 


&h3F39 


&h3D39 


&h2A39 


&hl839 


&h2B39 


&h2C39 




59812 


DATA 


&h2D39 


&hlD39 


&h2E39 


&h2F39 


&h3039 


&h4139 




59813 


DATA 


&h4039 


&hlE39 


&hlF39 


&hl639 


&hl939 


&h2939 




59814 


DATA 


&H1A39 


&hlC39 


&h3E39 


&H1739 


&h3C39 


&hlB39 




59815 


DATA 


&h3B39 


&h0439 


&K2100 


&h2000 


&h0939 


&hOE39 




59816 


DATA 


&h0300 


&h2800 


&h3F00 


&h3D00 


&h2A00 


&hl800 




59817 


DATA 


&h2B00 


&h2C00 


&h2D00 


&hlD00 


&h2E00 


&h2F00 




59818 


DATA 


&h3000 


&h4100 


&h4000 


&hlE00 


&hlF00 


&hl600 




59819 


DATA 


&hl900 


&h2900 


&hlA00 


&hlC00 


&h3E00 


&hl700 




59820 


DATA 


&h3C00 


&hlB00 


&h3B00 


&h3300 


&h2139 


&h3339 




59821 


DATA 


&h0339 


&hl000 


&h0000 


ShOOOO 


&h0000 


&h0000 




59822 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59823 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59824 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 




59825 


DATA 


&h0000 


ShOOOO 


&h0000 


&h0000 


&h0000 


&h0000 




59826 


DATA 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 


&h0000 





I 
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59827 
59828 
59829 
59830 
59831 
59832 
59833 
59834 
59835 
59836 
59837 
59838 
59839 
59840 
59841 
59842 
59843 
59844 
59845 
59846 
59847 
59848 
59849 
59850 
59851 
59852 
59853 
59854 
59855 
59856 
59857 
59858 
59859 
59860 
59861 
59862 
59863 
59864 
59865 
59866 
59867 
59868 
59869 
59870 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



&h0000 
&H0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h5100 
&H0000 
&h464B 
&h234B 
&h3B4B 
&h414B 
&h0000 
&hl44B 
&h4800 
&h0000 
&h3600 
&H0000 
&h0000 
&H0000 
&h014B 
&h374B 
&h474B 
&h064B 
&H0C4B 
&H0000 
ShOOOO 
&h0000 
&H0000 
&h0000 
&h0000 



&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&H0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
ShOOOO 
&h0000 
&h0000 
&h0000 
&h0000 
&H2200 
&h5200 
&H0000 
&h474B 
&h0000 
&h3C4B 
&h0000 
&h0000 
&h2500 
ShOOOO 
&h4600 
&h3900 
&h0000 
&h0000 
&h0000 
&h0200 
&K384B 
&h0000 
&H074B 
&h0D4B 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 



&h0000 
&h0000 
&h0000 
ShOOOO 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&H0000 
&h0000 
&H0000 
ShOOOO 
&h4D00 
&h5300 
&h0000 
&hll00 
&h0000 
&h3D4B 
&h0000 
&h0000 
&h2600 
&h0000 
&h0000 
&H2300 
&h0000 
&h0000 
&h0000 
&H134B 
&h0000 
&h0000 
&H084B 
&H0E4B 
&H0000 
&h0000 
&h0000 
&h0000 
&h0000 
ShOOOO 



&h0000 
&H0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h4E00 
&h5400 
&h0000 
&H1200 
ShOOOO 
&H3E4B 
&h0000 
&h0100 
&K3700 
&h224B 
&h4700 
&h2400 
&h0000 
&h0000 
&h0000 
&hl400 
&h484B 
&h5900 
&h094B 
&H0F4B 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 



&K0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&H0OOO 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&H0000 
&h0000 
&h0000 
&H4F00 
&h5500 
&h5700 
&hll4B 
&h0000 
&h3F4B 
&h0000 
&h024B 
&h3800 
&h3500 
&h0000 
&h0000 
&h0000 
&H0000 
&h0000 
&h254B 
&h0000 
&h044B 
&h0A4B 
&h0000 
&h0000 
&HOO0O 
&h0000 
&h0000 
&h0000 
&h0000 



&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&h0000 
&H0000 
&h0000 
&h0000 
&h5000 
&h5600 
&h5800 
&hl24B 
&h0000 
&h404B 
ShOOOO 
&hl300 
&h3400 
&h2700 
&h0000 
&h0000 
&h0000 
&h0000 
&H0000 
&h264B 
&h464B 
&h054B 
&h0B4B 
&h0000 
&h0000 
&h0000 
&h0000 
&H0000 
&h0000 
ShOOOO 



I 
^4 



1RMAT/ 


SiBS . b; 


^S - Technical 


Analysis Corporation - 


12-21-1982 


17:33:44 


59871 


DATA 


ShOOOO 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 




59872 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59873 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59874 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59875 


DATA 


ShOOOO 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59876 


DATA 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59877 


DATA 


&hOOOO 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59878 


DATA 


&hOOOO 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59879 


DATA 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59880 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59881 


DATA 


&h0000 


&h0000 


ShOOOO. 


ShOOOO 


ShOOOO 


ShOOOO 




59882 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59883 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59884 


DATA 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59885 


DATA 


&h0000 


&h0000 












59890 


DATA 


&H0000 










: ' 


SCODE 


59900 


DATA 


&h0050 


&h0051 


Sh003D 


Sh0021 


Sh0022 


Sh0023 




59901 


DATA 


&h0024 


&h0025 


Sh0026 


Sh0027 


Sh0028 


Sh0029 




59902 


DATA 


&h0020 


&h0030 


ShOOll 


Sh0031 


Sh005F 


Sh005E 




59903 


DATA 


&h0052 


&h0053 


Sh0036 


Sh0070 


Sh0076 


Sh0064 




59904 


DATA 


&h0071 


&h0073 


Sh0078 


Sh0074 


Sh0068 


Sh006E 




59905 


DATA 


&h006F 


&h001B 


Sh0015 


Sh0035 


ShOOOC 


ShOOOD 




59906 


DATA 


&H0054 


&h0055 


ShOOCC 


Sh0060 


Sh0072 


Sh0063 




59907 


DATA 


&H0065 


&h0066 


Sh0067 


Sh0069 


Sh006A 


Sh006B 




59908 


DATA 


&h007E 


&h0012 


ShOOOF 


Sh0008 


ShOOOE 


Sh0013 




59909 


DATA 


&h0056 


&h0057 


ShOOCD 


Sh0009 


Sh0079 


Sh0077 




59910 


DATA 


&h0062 


&h0075 


Sh0061 


Sh006D 


Sh006C 


Sh0033 




59911 


DATA 


&h0032 


&h0014 


ShOOCE 


Sh0016 


ShOOlA 


Sh0034 




59912 


DATA 


&h0034 


&h0010 


ShOOCF 


Sh0018 


Sh0040 


Sh0041 




59913 


DATA 


&h0042 


&h0043 


Sh0044 


Sh0045 


Sh0046 


Sh0047 




59914 


DATA 


&h0048 


&h0049 


Sh004A 


Sh004B 


ShOOOO 


ShOOOO 




59915 


DATA 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59916 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59917 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59918 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59919 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59920 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59921 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59922 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59923 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59924 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59925 


DATA 


&h0000 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59926 


DATA 


ShOOOO 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 




59927 


DATA 


&h0000 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 


ShOOOO 





00 



IRMATABS.BAS - Technical 


Analysis 


Corporation - 12-21-1982 


17:33:44 


59928 


DATA 


&h0000, 


&h0000, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59929 


DATA 


&h0000, 


&h0000, 


&H0000, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59930 


DATA 


ShOOOO, 


ShOOOO, 


&hOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59931 


DATA 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59932 


DATA 


ShOOOO, 


&h0000, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59933 


DATA 


&h0000, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59934 


DATA 


&h0000, 


&hOO0O, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59935 


DATA 


&h0000, 


&hOO0O, 


&hOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59936 


DATA 


ShOOOO, 


&hOO0O, 


&hOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59937 


DATA 


&h0000, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59938 


DATA 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59939 


DATA 


ShOOOO, 


&hOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59940 


DATA 


&h0000, 


&hOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59941 


DATA 


ShOOOO, 


&hOO0O, 


ShOOOO, 


ShOOOO, 


ShOOOO, 


ShOOOO 




59942 


DATA 


&h0000, 


&hOO0O, 


ShOOOO 











APPENDIX B 



Limited Product Warranty 



Technical Analysis Corporation (TAC) warrants the Decision 
Support Interface™, IRMA™, product hardware, with the exception 
of the supplied diskette, to be free from defects in material and 
workmanship under normal, proper and intended use in its 
unmodified condition for one year from the date of purchase by the 
first End User. TAC's sole obligation under this hardware warranty 
shall be to furnish parts and labor for the repair or replacement of the 
product found by TAC to be defective in material or workmanship 
during the warranty period. This obligation applies only to the first 
End User Purchaser of the product and does not apply to subsequent 
purchasers through resale by the first End User. 

Warranty repairs will be performed at the point of manufacture. 
Equipment authorized by TAC for return for warranty service shall 
be accompanied by a written description of the defect, returned 
postpaid to the TAC factory and upon repair or replacement will be 
redelivered by TAC freight prepaid to the End User. The warranty of 
TAC does not cover normal wear and tear, or damage caused by 
accident, negligence, vandalism, alteration, abuse, misuse, improper 
installation, environmental stress, or acts of God. 

The diskette supplied with the product is covered by the above 
provisions for a period of thirty days. The End User is responsible for 
making adequate copies of the diskette for back-up and recovery 
should a diskette be damaged by the diskette drive mechanism or by 
improper handling of the diskette. 

TAC warrants that the product firmware will conform to TAC's 
product specifications prevailing at the time of product delivery to 
the first Purchaser of the product. This firmware warranty makes no 
claim of compatibility with equipment or software supplied or to be 
supplied in the future by others. 



(Continued on Reverse Side) 
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Software contained on the diskette supplied with the product is 
provided to the End User as a convenience; it has been placed in the 
Public Domain by TAC and therefore, comes with no warranty of 
any kind. 

Generally distributed firmware updates will also be supplied during 
the warranty period to those End Users who return their 
FIRMWARE/SOFTWARE UPDATE REGISTRATION card to 
TAC. 

THIS EXPRESS LIMITED WARRANTY IS IN LIEU OF ALL 
OTHER WARRANTIES EXPRESS OR IMPLIED, 
STATUTORY OR OTHERWISE, INCLUDING ALL IMPLIED 
WARRANTIES OF MERCHANTABILITY AND FITNESS 
FOR A PARTICULAR PURPOSE OR USE. TAC SHALL NOT 
BE LIABLE FOR ANY DAMAGES SUSTAINED BY 
PURCHASER OR ANY OTHER PARTY ARISING FROM OR 
RELATING TO THE USE OR PERFORMANCE OF THE 
PRODUCT, OR TO ANY EQUIPMENT FAILURE, 
INCLUDING, BUT NOT LIMITED TO CONSEQUENTIAL 
DAMAGES, NOR SHALL TAC HAVE ANY LIABILITY FOR 
DELAYS IN REPLACEMENT OR REPAIR OF RELATED 
EQUIPMENT OR THE TAC PRODUCT. 
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Information Request 



In order to provide complete and accurate documentation, your 
comments would be greatly appreciated. You are encouraged to 
report any discrepancies found in this or any other TAC 
manual. TAC will expend its best effort to investigate and 
take corrective action on any verified errors. 

1 . Was the documentation easy to read? If it was not, please indicate 
confusing sections. 



2. Were you able to find information easily? If not, indicate the 
information that was difficult to find. 



3. Were the technical terms defined adequately? List any 
which were not. 



4. Was the information accurate? List any discrepancies. 



5. Was the documentation complete in its information? List any 
area where further discussion was needed. 



6. General comments: 
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TECHNICAL ANALYSIS CORPORATION 

120W.WIEUCARD..N.E. 
ATLANTA, GA. 30042 U.S.A. 



SOFTWARE UPDATE #1 



Revision 1.08, released February 7, 1983, offers two significant 
enhancements. The first enhancement supports the PC-DOS MODE 
command screen centering commands. E78 now recognizes the 
information made available by the MODE command and uses it 
appropriately. This will be helpful to users with some types of non- 
IBM monitors which were reported to have centering problems. 

The second enhancement allows the user to save as many as nine 
screen images for later review or recall. This feature requires that 
E78 be called with a new command sequence. If the old sequence is 
used, the emulator program will work as before with no screen 
images available to the user. The new calling sequence is: 

E78/n <filename> 

where n is the number of screen images the user wishes to have 
available. If memory is insufficient for the number of screen images 
requested, E78 allocates as many as will fit. This number is 
particularly important when E78 is to be made resident. Each screen 
image allocated to the resident emulator requires 4K bytes (4096 
bytes) of system memory in addition to the normal memory 
consumed by the resident emulator. 

In the case where both a resident and non-resident emulator are both 
active, E78 will share previously allocated resident buffers. For 
example, the resident E78 has allocated two screen images and the 
non-resident E78 has allocated five. In this case screen images one 
and two would be resident and three through five would be non- 
resident. 

The new sequences for accessing the screen image feature are 

described below: 

CONTROL & END Provides for the selection of the screen 

image to be used. The prompt: Select 
screen memory for STORE will appear 
on the status line. Press a number key 
(1-9) to select the screen image. This 
command does not affect the screen 
currently displayed. 



END Provides the means to RECALL and 

display a screen image. The prompt: 
Select screen memory for RECALL will 
appear on the status line. Press a 
number (0-9) to select. Zero is used 
here to select the current 3278 screen. 

For the functions press the key or keys listed on the left to use these 
features. 

While a screen image is being displayed, the message 'Screen 
memory n' will be displayed at the right most end of the status line 
indicating that screen image 'n' (1-9) is being displayed. Error 
messages will appear briefly on the status line for the following 
conditions: 

— Memory not allocated 

— Memory empty 

— Invalid number (not 1-9) 

To go back to displaying the current 3278 screen after a screen image 
has been recalled, press the 'RECALL' key (IBM's END key) 
followed by the digit 0. Pressing any key that causes a character to be 
sent to the host computer/controller will also cause the display to 
revert back to the current 3278 screen. These keys include all keys 
except those which change screen modes or keys which have no 
current function (dead keys). 

Display mode function keys may be used to view the recalled screens 
in all the modes available to the normal screen. Be aware that saving 
a screen with non-displayed fields present, such as passwords, will 
allow someone to later recall that screen with the password displayed. 
Users should be cautioned against STOREing screens containing 
privileged or secure information in non-displaying fields. 
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REVISION NOTICE 

Revision 1.25 of E78 supercedes all previous 
revisions of the E78 program. Revision 1.25 is 
an enhancement of the earlier revision of 1. 10 
which was released in February. 1983. 

Revision 1.25 fixes the two known bugs left in 
1. 10* screens with no attributes and screens 
being displayed backwards. The first bug 
occasionally caused screens which contained no 
attribute characters to be treated as a 
non-displayed field. E78 now properly handles 
this situtation. The second bug* in rare 
instancesi caused E78's screen buffer to be 
displayed backwards when entered as resident 
from some programs. Running full screen 
programs* such as spread sheets and full 
screen text editors aggravated the problem. 

Revision 1.25 contains many new features and a 
new program "GENX" has also been included in 
the release to provide users a simple approach 
to modifying the E78 program which does not 
require modifying the assembly language E78 
program. In addition to the GENX program* file 
transfer utilities for VM/CMS and VMS/TSO 
operating systems are also included on the 
same diskette as the executable E78 program. 
Features added in this revision include the 
f o 1 lowing : 

- MOD 4 screen support (80X43). (IBM PC OR 
PC/XT MUST BE EGUIPED WITH A REVISION C 
IRMA BOARD. ) 

- File transfer utilities for CMS and TSO 

IRMA UPDATE - 1 
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are now included on the executable E78 
d i skette. 

Revision 1.25 also remedies the problems 
with the screen RECALL function. 

Light pen support for applications 
requiring the IBM 'Selector Pen'. This 
feature requires that the E78 be used 
with the IBM Color Display Adapter and a 
light pen which connects to the display 
adapter such as the one sold by FTO Data 
Systems. 

Support of all 16 possible IBM keyboard 
types* including IBM 'Reserved' types 
used by IBM for custom keyboards. 

Two keyboard layouts are also provided. 
The standard default keyboard was 
designed to accommodate the combination 
of APL and 3278 functions. The 
selectable optional keyboard is the same 
layout as was initially released with 
IRMA. <Pre-l. 20 keyboard) Both of these 
keyboards are compatible with software 
previously developed for IRMA. 

ASYNC character input support. This 
feature allows data entry to IBM 
mainframes using character serial 
devices attached to the PC C0M1: RS-232 
ASYNC card. The interface supports such 
options as barcode or OCR readers and 
touch input screens* such as the screen 
manufactured by Touch Technoloy. 
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Complete keyboard reconfiguration 
ability. All E78 keyboard sequences are 
now controlled by simple tables which 
may be user modified through the GENX 
utility. (Instructions for this 
procedure are available upon request 
from the IRMA Technical Support Group. ) 

Support of IBM APL-I character set and 
keyboard when using a display adapter 
equipped with TAC or STSC ' s APL*PLUS/PC 
(Trademark of STSC» Inc. ) character 
generator ROM. In order to support the 
3278 and APL functions/ the user should 
NOT select the pre-1. 20 keyboard. 

Support of 32 line screens. E78 may be 
configured to appear to the mainframe as 
a model 2 (24x80) or model 3 (32x80) 
3278 or 3279 with full seven color 
support. Screens longer than 32 lines 
are handled by scrolling key functions 
and an automatic cursor tracking system. 

Support of PC 'look-similars' using 8086 
processors; such as the Eagle 1600. 
Also included is support for hybrid 
COLOR /MONOCHROME screens, such as used 
on the COMPAQ portable computer. An 
option to accomodate the PCXT monochrome 
cursor is also included. 

A program function is provided to 
completely disable the display of 
NON-DISPLAY type fields even when the 
'Display Attributes and Non-Display 
Fields' mode is selected. 
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OENX, a generic menu driven program, 
provides the user with the ablity to 
customize the .EXE type programs. The 
GENX program can be used to create 
customized versions of E78 with 
specialized keyboard* color/ and 
communications defaults. 

E7S can now be made resident upon 
execution. With this feature an 
'auto-resident' E78 could be placed in 
the AUTOEXEC.BAT file to make the E78 
programs instantly available after 
machine startup. 
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GENX 



The GENX utility allows the user to configure 
IRMA to accommodate features and function 
modes that best suit his/her system 
requirements. Calibrating the LIGHT PENi 
enabling COM1: inputs, setting screen and 
keyboard types, and selecting PC 'look 
similar 7 modifications are all handled by the 
GENX program. 

The standard GENX menu provided with this E78 
release includes menu items to select all 
possible keyboards. It should be noted* 
however* that selecting a specific keyboard 
does not necessarily mean that the resulting 
keyboard configuration is useful. For example* 
TEXT and APL keyboards should not be selected 
unless an extended character set is installed 
in the display adapter board. If one of these 
keyboards is selected without having the 
character set installed* the TEXT and APL 
special characters will be displayed as 
musical notes and game symbols. Selecting 
either of the DATA ENTRY keyboards moves the 
numeric and PF keys into bizarre locations. 
Making this particular keyboard funtionable 
requires several decisions to be made. These 
decisions are based on the specific 
applications involved and the layout of the PC 
keyboard versus the 3278 keyboard. If DATA 
ENTRY keyboards are essential to the 
application* instructions for altering the 
keyboard and adding menu options are available 
upon request from the IRMA Technical Support 
Group. 
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The GENX program is executable in two forms 
One format is for the general user who wants 
to make use of the normal defaults without 
altering the keyboard mappings or altering the 
E78 program to accommodate unique 
requirements. The second format is for those 
users who require special configurations that 
are not included in the default selections. 
The following discussion describes the first 
format. The second format is discussed in 
detail in "Application Note - GENX". This 
second format is for use primarily in creating 
specialized keyboard and menu items. 

GENX presents the user with a menu of options. 
The user selects options from this menu that 
describe the parameters necessary fo 
operation. Selecting the appropriate option-, 
causes the GENX program to 'patch' these 
options into the executable E78 program. Upon 
subsequent power-ups# these selected options 
are the default parameters. If different or 
additional options are required for other 
users* a second version of the GENX program 
should be generated. Therefore* it is feasible 
that the user will have several customi zat ions 
of the GENX program to meet each specific 
application required. Be sure to label each of 
the custom versions appropriately. 

For GENX to operate properly* several files 
must be available in the current directory. 
These files are noted below: 
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GENX. EXE - This file is the actual GENX 
program which displays the 
menus and patches the program 
file. 

E78. MAP - This is the symbol table for 
the program to be modified. 
This file is produced by the 
DOS LINK program and contains 
entTys which tell GENX how to 
find the various tables and 
switches which it uses to 
apply patches to E78. This 
file is in a simple format and 
may be TYPEd. 

E78. GEN - This is a text file initially 
prepared by TAC and contains 
the information used by GENX 
to display the menus and make 
the patches required by the 
user. 

Several files are created in the current 
directory as a result of running GENX. These 
files are listed below: 

CE78.EXE - This is the users customized 

version of E78. The user 

should use this name to 

execute a customized E78. 

CE78.L0G - This is a text file in a 
format similar to E78. GEN 
mentioned above. This file 
contains a listing of all 
patches installed in CE78.EXE. 
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For this general use of the GENX program, a 
file called E78GEN.BAT contains th 
instructions to start the GENX program which 
produces the customized E78 program/ CE78.EXE. 
Though the above mentioned files are used by 
the GENX utility, their use and modification 
is transparent to the user. These same files 
are also used by the second format for GENX. 
For the second format, some of the 
modification of these files must be done by 
the user. For example, to create a special 
keyboard modification that is not listed among 
the default settings, the genfile, E78. GEN, 
must be modified by the user before the actual 
CE78. EXE can be generated. However, for most 
applications, the first format is adequate for 
creating the customized version of E7B. 
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USING THE GENX PROGRAM WITH MENU FORMAT 

1. If you have not already done so* make 
several duplicate copies of the E78 
d iskette. 

DO NOT MODIFY THE ORIGINAL DISKETTE!? 

2. To set the E78 program defaults* you 
must be in DOS. After receiving the 
DOS prompt* A> or B>. or C>, enter 
E78GEN followed by the 'Enter ' key. 

3. Following the copyright* trademark* 
and revision information* a menu is 
displayed on the CRT. This menu 
includes the options available. Those 
items preceeded by a dash are complete 
as listed* those items preceeded by an 
equal sign have submenus. Select the 
appropriate items which describe your 
system requirements. The menus are 
listed in the following section* Menu 
Options. 

4. Once all of the desired options have 
been selected* select item # 99. 
Exiting the GENX program causes the 
selected options to become permanant 
patches to the E78. EXE program. From 
this point on* to use the customized 
version of E78. EXE* the user enters 
CE78 to activate the emulator program. 
After typing CE78 <ENTER>, the 
copyright and related information is 
again displayed on the CRT* followed 
by USER CUSTOMIZED VERSION. 
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After completing the GENX routine if the 
auto-resident patch has not been installed/ 
the DOS prompt will be displayed. Typing 
CE78 <ENTER> will place you directly into 
the 3270 mode. Pressing both SHIFT keys 
simultaneously will return operational 
control to the PC. To return to 3270 mode 
CE78<ENTER> must be re-entered. 

If the option to install auto-residency has 
been selected/ after exiting the GENX 
routine* the DOS prompt will be displayed. 
Type CE78<ENTER> to activate the emulator. 
The copyright, trademark. and revision 
information is displayed followed by USER 
CUSTOMIZED VERSION. The DOS prompt appear* 
again; press both SHIFT keys simultaneously 
to enter 3270 mode. Pressing the SHIFT keys 
again returns the operaitonal control to the 
PC mode. This process must be repeated each 
time the PC is "booted". (It is not 
necessary to re-run the GENX program, only 
the subsequent steps. ) If desired the CE78 
command may be place in the AUTOEXEC.BAT 
file, causing it to automatically execute 
each time the system is booted. 

The ability to alternate between modes is 
available with both non-auto-resident and 
auto-resident; however, installing the 
auto-resident patch simplifies this process 
for the general user. 
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MENU OPTIONS 

After entering E7SGEN, the following 
information mill be displayed on the CRT: 

E78 Terminal Emulator Customization Menu 

1 - Disable 24th line status display 

3 - Make emulator auto-resident 

5 - Make 2 color mode default 

6 - Make 7 color mode default 

8 - Make SHOW COLUMNS default 
10 - Select pre 1.20 keyboard 

12 » Select KEYBOARD & SCREEN type 

13 =« Set LIGHT PEN correction 

14 = PC look-alike patches 

15 = Set up C0M1: input parameters 

99 = Exit OENX program 
Your selection: 
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Selecting item #2 disables the display o 
the status line. 

Selecting item # 3 causes the customized E78 
program to become resident upon power up. 

Selecting item # 5 makes 2 color the 
default. 

Selecting item # 6 makes 7 color the 
default. 

Selecting item # 8 causes unprotected null 
fields to be filled with dots, showing the 
size of the field. 

Entering item # 10 selects the pre-1. 20 
keyboard. This option should not be selecte 
if the user expects to later use 
non-typewriter keyboards (eg. APL» TEXT or 
DATA ENTRY). 
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Selecting item # 12 causes the following 
menu to be displayed on the CRT. 

Select KEYBOARD & SCREEN type 

1 - Typewriter (default) 

2 - Typewriter w/ Numeric lock 

3 - Typewriter, PSHICO 

5 - APL 

6 - APL w/ Numeric lock 

7 - APL, PSHICO 

9 - Text 
10 - Text w/ Numeric lock 

12 - Data Entry I 

13 - Data Entry I w/ Numeric lock 

14 - Data Entry II 

15 - Data Entry II w/ Numeric lock 

17 - No attached keyboard 

18 - Reserved 0000 

19 - Reserved 0011 

20 - Reserved 1011 

22 - Mod 2 Screen (24x80) 

23 - Mod 3 Screen (32x80) 

98 - Return to previous menu 

99 - Exit GENX program 

Your Selection: 
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Menu item # 13 should be used only when 
pressing the LIGHT PEN against the edge of 
screen field causes the adjacent field to be 
selected. If this occurs on the left edge of 
the field, use the MINUS (-) selections. If 
it occurs on the right edge of the field; 
use the PLUS < + ) selections to calibrate the 
LIGHT PEN. If none of the available 
selections results in correct LIGHT PEN 
operation, the pen is probably broken or 
internally mis-adjusted. To enable the LIGHT 
PEN, attach the LIGHT PEN to the display 
adapter board. 

Set LIGHT PEN correction 



1 


- -3 


X. . o 


2 


- -2 


. X. o 


3 


- -1 


. . Xo 


4 


- >0 


o 


5 


- +1 


oX. . 


6 


- +2 


o. X. 


7 


- +3 


o. . X 



98 = Return to previous menu 

99 = Exit GENX program 

Your selection: 
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Selecting item # 14 causes the following 
information to be displayed: 

PC look-alike patches 

1 - Eagle 1600 screen cleanup 

3 - Force Horizontal update sync 

5 - Disallow 26 line color display 

7 - Always set cursor shape on exit 



98 = Return to previous menu 

99 = Exit GENX program 

Your selection: 



Item # 1 eliminates the spurious dots that 
sometimes appear on the CRT. This selection 
also enables / 8086 / type screen accesses and 
should be selected when IRMA/E78 is used in 
any 8086 based machine. Item # 3 is 
necessary to remove or reduce screen flicker 
on some non-IBM machines* notably the EAGLE 
PC. Item # 5 should be selected if using the 
COMPAQ color/monochrome display. Item # 7 
solves the PCXT monochrome cursor problem. 
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Selecting #15 causes the following menu t 
be displayed: 

Setup COM1: input parameters 



1 - 


Enable COM1: character input 


2 - 


Disable COM1: key clicks 


4 - 


Select 4800 baud 


5 - 


Select 2400 baud 


6 - 


Select 1200 baud 


7 - 


Select 300 baud 


8 - 


Select 110 baud 



98 - Return to the previous menu 

99 = Exit OENX program 



Item # 1 enables asychronous character 
input, such as barcode readers. Item # 2 
Disables the key clicks. Items 4-8 
establishes the baud rate for the device 
attached to C0M1 : . 
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Remember that once the E78 program has been 
customized into CE78* it is permanent. To 
change the customization! it is recommended 
to begin with an unmodified copy of the 
original diskette as some of the patches can 
be remodified and some cannot. It is 
therefore essential to make adequate copies 
of the original diskette. Once the E78 
program has been modified to CE78# to 
activate the emulator enter CE78 followed by 
the <ENTER> key. 

If the custom emulator was made resident by 
either the auto-resident patch or the 
CONTROL HOME function* alternating between 
the 3270 mode and the PC mode is done by 
pressing both shift keys simultaneously. To 
return to the 3270 mode* enter both shift 
keys again. If the custom emulator program/ 
CE78. EXE* was not made resident* pressing 
both shift keys will alternate to the PC 
mode. To return to the 3270 mode* re-enter 
"CE78". 
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FILE TRANSFER 



The IRMA file transfer programs are compatible 
with both Rev. 1. 1 and 2.0 of DOS and all 
Revisions of IRMA software and firmware. There 
are five files necessary to execute the file 
transfer programs. They are included on the 
executable E78 diskette: 



1. FT78X.EXE 



- the executable file 
transfer program for 
CMSNXEDIT 



2. FT78T. EXE 



the executable file 
transfer program for TSO 



3. IRMA. XED 



IRMAXXEDIT profile for 
use with the CMS file 
transfer utility. This 
file must exist on the 
host system with the 
filename IRMA and the 
filetype XEDIT in order 
for the FT78X program to 
work on the IBM-PC. 
See page 11 for a listing 
of this file. 



4. IRMATABS. OVR - 



must be on 
diskette 



file transfer 



5. FTSAMPLE. TXT - 



a sample text file for 
testing file transfer. 
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ENVIRONMENT 

The host environment is limited to: 

1. VM/CMS - SP, using XEDIT, or 

2. MVS/TSO - Using the EDIT function 
of TSO. 

The PC environment must include: 

1. 128K of memory. 
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IRMA FILE TRANSFER UNDER CMS 

The file transfer program was designed to be 
simple to use. A HELP function* plus a 
question and answer format provides the user 
with all the information required to 
transfer files. To begin the file transfer 
the user must first perform the following. 

1. Enter the IRMA. XED profile at mainframe. 
This file must exist in each USERID that 
will be using the file transfer program. 

2. Be logged on to the mainframe. 

It would be useful at this time to run the 
help function for a listing of the tw« 
formats and the switches that can be us* 
with the single line format. A printed copy 
of this help function is provided on page 
28. 

ENTER: FT78X/H 



Under this file transfer program, it is 
possible to transfer binary data. The binary 
data is translated into an intermediate text 
file format for sending the file to the 
host. The file is stored on the host in a 
special format. When the file is transmitted 
back to a PC* it is received as binary data. 
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This binary mode was implemented for such 
operations as the transfer of BAS type 
files from PC to PC. In order to sucessfully 
transfer binary data, the IRMA. XEDIT Profile 
must include the option to enable lower case 
characters or the host filetype must allow 
lower case by default. 
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FORMAT 1 — Questi on and Answer 

PROMPT: Confirm selections prior to 
transfer? <Y,N) 

ENTER: Y for Yes, N for No 

This selection causes a line similar 
to the following text line to appear 
on the CRT after all the PROMPTS 
have been answered listing the 
received file and the save file: 

"Receive from host <filename># save 
as local <filename>. " 

This confirmation is followed bi* 

"OK to continue? (Y/N) 

If the filenames are listed 
correctly/ enter Y for Yes. If they 
are not correct, enter N for No and 
the FT78X program will be 
terminated. Restart the FT78X 
program from the beginning to 
re-specify the operation. 
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PROMPT: Transfer direction. (R/S) 



R = Rec e i ve 
the host 



a file on the PC from 



S = Send 
host 



a file from the PC to the 



ENTER: R or S 



PROMPT: Transfer 



b inary 



file 



(Y/N) 



If it is necessary to 
file containing binary 
Yes must be entered. 



transfer a 
data, Y for 



PROMPT. Display copy to CON: (Y/N) 

If it is desirable to display the 
transferring data to the CRT# enter 
Y for Yes. This mill slow the 
transfer down. It is also not 
advisable to alternate between PC 
mode and 3278 mode while the 
transfer is taking place. Doing so 
may cause interuptions in the 
transfer. 
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For the transfer to take place the program 
must know the source and destination file. 
The prompts for supplying information are in 
the same order no matter whether sending or 
receiving a file. You must always supply the 
local filename and host filename and 
filetype. The FT78X program will interpret 
which one is the source and which one is the 
des t inat i on. 

PROMPT: What is the local filename? (Must be 
one word ) 

ENTER: <filename> 
PROMPT: Host filename 

ENTER: <filename> 

PROMPT: What is the file type on the host? 

(This is specific to CMS) It is 
suggested to specify SCRIPT as the 
file type because it allows a 
variable length record up to 132 
characters. DATA type files allow 
for a fixed 80 character record 
length. 
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In order to transmit a file from the host to 
the PC/ the file must already exist at the 
host. The destination filename should not 
exist prior to the transfer. However* if it 
should exist and be determined to be 
non-empty* an option to clear the data is 
offered after all the PROMPTS have been 
answered. The following question is 
displayed if the PC is receiving the file 
and if the filename already exists. 

PROMPT: Do you want to delete and write over 
that file? (Y/N) 

ENTER: Y or N 

If Y is entered* the file will be 
replaced with the file from the 
mainframe. 

If N is entered* FT78X will prompt 
the user to respecify the filename. 

If the host filename is the destination (on 
send) and it is determined to be non-empty* 
am option to clear the data is offered. 
Unlike the local file which can be deleted* 
only the contents of the host file are 
deleted* not the actual file. 

PROMPT: Host filename already exists* clear 
it? (Y/N) 

ENTER: Y or N 

Y will clear the file and allow user 

to continue 

N will terminate the file transfer 

program. 
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If the user has specified the confirm 
option, the text line specifing the file to 
receive and to send will be displayed on the 
CRT. At this point the user has the option 
of continuing or terminating the file 
transfer program. 
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FORMAT 2 - Sinqle command line 

ENTER: FT78X<swi tc hes> < 1 oca l_f i 1 ename> 
<host_f i lename> <host_filetype> 



This second format places all the necessary 
information in one command line. It also 
allows you to add "switches" to the command 
line for verification and confirmation of 
information used in the transfer. This 
second format is also useful with batch 
files. The switches are listed on the 
following page and in the FT78X/H listing. 
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FT78X/H - HELP FILE 

There are two formats for using the file 
transfer utility. 

FT78X 
or 

FT78X {switches} <local_f i lename> 

<host_f i lename> <host_filetype> 

The first format causes a question and 
answer dialogue to be provided to specify 
the information. The second format contains 
all of the information in the command line 
and is useful with batch files. If fewer 
than the required number of items are 
included with the second format. the user 
will be prompted for the remaining items. 

Global Switches 

/B - Binary transfer mode 

/C - Confirm the pending operation 
prior to execution 

/F - Display host file size on receive 

/O - Override the delete-file query 

and automatically delete the local 
file if it exists on the receive 

/R - Receive a file from the host 

/S - Send a file to the host 

/V - Display data on CON: during the 
transfer 
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IRMA.XED PROFILE 

This is the IRMA\XEDIT profile for use with 
the file transfer utility. You must enter 
this profile at the host with the filename 
IRMA and the file type of XEDIT in order for 
FT78X to work on the IBM-PC. 
It must be entered exactly as shown here, as 
this profile sets up the functions that the 
transfer program uses. A copy of this 
profile must exist in each USERID using the 
file transfer program. 



SET SCALE OFF 
SET NUMBER ON 
SET CURLINE ON 3 
SET CMDLINE BOTTOM 
SET NULLS ON 
SET PF6 QQUIT 
SET PF18 QQUIT 
SET PF7 FORWARD 
SET PF19 FORWARD 
SET PF8 TOP 
SET PF20 TOP 
SET PF9 FILE 
SET PF21 FILE 

The following are OPTIONAL items which may be 
included if desired. 

SET CASED MIXED to allow lower 

case as the default 
(Must be set for 
binary transfer. ) 
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NOTES ON ASCII TO EBCDIC CONVERSION 



GENERAL CONVERSION LOSSES 



In all cases* the following ASCII characters 
are translated by IRMATABS. OVR. into the 
equivalent EBCDIC characters. The conversion 
to EBCDIC occurs when a file is sent to the 
host from the PC. 

ASCII EBCDIC 



4 



CMS/XEDIT OPERATION LOSSES 



Due to the use of POWERINPUT in XEDIT to 
improve performance on a SEND* two of the 
ASCII characters are not available. The "* u 
and " C " are reserved as special characters. 
The ■* and C characters are effectively 
changed to spaces and are NOT recoverable on 
subsequent receives. A warning to this 
effect will be displayed on the CRT if 
either of these characters are encountered 
during a send operation. 
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IRMA FILE TRANSFER UNDER TSO 

The file transfer program for TSO was also 
designed to be simple to use. A HELP 
function. plus a question and answer format 
provides the user with all the information 
required to transfer files. To begin the 
file transfer the user must first perform 
the f ol lowing : 

1. Be logged on to the mainframe. 

2. Must be in TSO with READY prompt. 

It would be useful at this time to run the 
help function for a listing of the two 
formats and the switches that can be used 
with the single line format. A printed copy 
of the help function is provided on page 40. 

ENTER: FT78T/H 

Under this file transfer program/ it is 
possible to transfer binary data. The binary 
data is translated into an intermediate text 
file format for sending the file to the 
host. The file is stored on the host in a 
special format. When the file is transmitted 
back to a PC, it is received as binary data. 
This binary mode was implemented for such 
operations as the transfer of . BAS type 
files from PC to PC. When using the binary 
transfer mode, the user must specify the 
ASIS operand or select a dataset type which 
allows lower case by default. 
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The TSO version of file transfer allows the 
user to fully specify the dataset name and 
associated operands to be used with EDIT. 
The data set name must be a single word with 
no imbedded spaces. However* the word can be 
as detailed as necessary. This allows easy 
specification of partitioned datasets. The 
operands can also be as detailed or as 
simple as necessary and they are not limited 
to a single word. This provides the users 
with the means to add items such as, ASIS 
(lower case) and/or NONUM (un-numbered 
dataset). Several examples are included 
later in this discussion. 
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For«at 1 - Questi on and flnswer 

PROMPT: Confirm selections prior to 
transfer? (Y,N) 

ENTER: Y for Yes, N for No 

This selection causes the following 

text line to appear on the CRT after 

all the PROMPTS have been answered 

listing the received file and the 
save file: 

"Receive from host <filename>, save 
as local <filename>. " 

This confirmation is followed by: 

"OK to continue? (Y/N) 

If the filenames are listed 

correctly* enter Y for Yes. If they 
are not correct, enter N for No and 
the FT78T program will be 
terminated. Restart the FT78T 
program from the beginning. 
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PROMPT: Transfer direction. (R/S) 

R = Receive a file on the PC from 
the host 

S = Send a file from the PC to the 
host 

ENTER: R or S 



PROMPT: Transfer 



b inary 



file 



(Y/N) 



If it is necessary to 
file containing binary 
Yes must be entered. 



transfer a 
data. Y for 



PROMPT: Display copy to CON: (Y/N) 



If it is desirable to display th 
transferring data to the CRT* enter 
Y for Yes. This will 
transfer down. It is 
advisable to alternate 
mode and 3278 mode 
transfer is taking place 



slow the 

also not 

between PC 

while the 

Doing so 



may cause 
transfer. 



interuptions in the 
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For the transfer to take place the progra 
must know the source and destination file. 
The prompts for supplying information are in 
the same order no matter whether sending or 
receiving a file. You must always supply the 
local filename and host filename and 
filetype. The FT78T program will interpret 
which one is the source and which one is the 
destination. 

PROMPT: What is the local filename? (Must be 
one word ) 

ENTER: <filename> 
PROMPT: What is the Data-set-name? 

ENTER: <data-set-name> 
PROMPT. What are the operands for host? 

ENTER: <operands> Cnone3 

The "[none]" is the default. If no 
operands are required/ simply enter 
a <NL or ENTER>. 
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In order to transmit a file from the host to 
the PCi the file must already exist at the 
host. The destination filename should not 
exist prior to the transfer. However* if it 
should exist and be determined to be 
non-empty* an option to clear the data is 
offered after all the PROMPTS have been 
answered. The following question is 
displayed if the PC is receiving the file 
and if the filename already exists. 

PROMPT: Do you want to delete and write over 
that file? (Y/N) 

ENTER: Y or N 

If Y is entered* the file will be 
replaced with the file from the 
mainframe. 

If N is entered* FT78T will prompt 
the user to respecify the filename. 

If the host filename is the destination (on 
send) and it is determined to be non-empty* 
an option to clear the data is offered. 
Unlike the local file which can be deleted* 
only the contents of the host file are 
deleted* not the actual file. 

PROMPT; Host file already exists, clear it? 
(Y/N) 

ENTER. Y or N 

Y will clear the file and allow the 

user to continue. 

N terminates the file transfer 

program. 
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If the user has specified the confirm 
option, the text line specifing the file to 
receive and to send will be displayed on the 
CRT. At this point the user has the option 
of continuing or restarting the file 
transfer program. 
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Under TSO files usually contain line 
numbers; however, files on the PC do not 
have line numbers. Files sent to the host 
from the PC will be automatically numbered* 
beginning at 10 and incrementing by 10 for a 
maximum number of 9,999 lines of text. Files 
received by the PC will be temporarily 
renumbered* beginning at 1 and incrementing 
by 1 for a maximum of 99/999 lines. These 
line numbers are automatically removed 
before writing the file to the diskette on 
the PC. 

Additionally; un-numbered data sets can be 
sent and received by including the NONUM 
operand. This causes FT78T to ignore lin* 
numbers entirely and not attempt to renumbe 
the data set on a receive. 
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FORMAT 2 - Sinqle command line 

ENTER: FT78T<swi tc hes> <local_f i lename> 
<data_set_name> <operands> 

This second format places all the necessary 
information in one command line. It also 
allouis you to add "switches" to the command 
line for verification and confirmation of 
information used in the transfer. This 
second format is also useful with batch 
files. 

For easy reference* a copy of FT78T/H is 
included with the update. 
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FT78T/H - HELP FILE 

There are two formats for using the file 
transfer utility. 

FT78T 
or 

FT78T {switches} <1 ocal_f i 1 ename> 
<!host_f i lename> <operands> 

The first format causes a question and 
answer dialogue to be provided to specify 
the information. The second format contains 
all of the information in the command line 
and is useful with batch files. If fewer 
than the required number of items are 
included with the second format* the user 
will be prompted for the remaining items. 

Global Switches 

/B - Binary tranfer mode 

/C - Confirm the pending operation 
prior to execution. 

/O - Override the delete-file querry 

and automatically delete the local 
file if it exists on the receive. 
At the host on send* deletes the 
only the contents of file* not 
actual file. 

/R - Receive a file from the host. 

/S - Send a file to the host (See note 1) 

/V - Display data on CON: during 
the transfer. 
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SAMPLE TSO TRANSFERS 

SAMPLE ONE FTSAMPLE. TXT 

A copy of the sample test file. 
FTSAMPLE. TXT, is to be sent to the host as 
the numbered/ sequential data set, TEST. TXT. 
The following dialogue would achieve the 
transfer: 

PROMPT RESPONSE 

A> FT78T OML or ENTER > 

Confirm selections 

prior to transfer (Y/N) N <NL or ENTER> 

Transfer direction (R/S) S <NL or ENTER> 

Transfer binary file 

(Y/N) N <NL or ENTER> 

Display copy to CON: N <NL or ENTER> 

Local filename: FTSAMPLE.TXT <NL 

or ENTER> 

Data set name: TEST. TEXT <NL 

or ENTER> 

Operands: Cnone3: <NL or ENTER> 

Transfer takes place at this point. 
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SAMPLE TWO PARTITION TRANSFER 

A copy of the member, MEM1 in th 
partitioned* numbered data set PPS. DATA, is 
to be stored in the IBM PC as FILE1.DAT 

PROMPT RESPONSE 

A> FT78T <NL or ENTER> 

Confirm selections 

prior to transfer (Y/N) N <NL or ENTER> 

Transfer direction (R/S) R <NL or ENTER> 

Transfer binary file 

(Y/N) N <NL or ENTER> 

Display copy to CON: N <NL or ENTEF 

Local filename: FILE1.DAT <NL 

or ENTER> 

Data-set-name: 1. PPS. DATA (MEM1 XNL 

or ENTER> 
or 
2. PPS(MEMl) <NL 
or ENTER> 

Operands Cnonel: 1. <NL or ENTER> 

or 
2. DATA <NL or 
ENTER> 

When entering the data-set-name* the fir? 
entry includes the filetype and therefore 
does not require the file type to specified 
as an operand. 
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If using the second entry, it is necessary 
to enter the file type as an operand. For 
this example when entering the data-set-name 
and the operands* match the numbered 
responses for each entry. 

Transfer takes place at this point. 
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SAMPLE THREE BINARY TRANSFER 

The DASICA program, PROG. BAS, is to be sent 
to the host as TEMPPROG. DATA. This requires 
lower cas on the host as the binary transfer 
mode will be used. 

PROMPT RESPONSE 

A> FT78T <NL or ENTER> 

Confirm selections 

prior to transfer (Y/N) N <NL or ENTER> 

Transfer direction (R/S) S <NL or ENTER> 

Transfer binary file 

(Y/N) Y <NL or ENTER> 

Display copy to CON: N <NL or ENTER> 

Local filename: PROG. BAS <NL 

or ENTER> 

Data set name: TEMPPROG. DATA <NL 

or ENTER> 

Operands: Cnone3: ASIS <NL or ENTER> 

Transfer takes place at this point. 
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SAMPLE FOUR SINGLE COMMAND LINE 

To perform the same transfer as listed in 
the previous example using thesingle command 
line format* enter the following data. 

FT78T/S/B PROG. BAS TEMPPROG. DATA ASIS 

or 

FT78T/S/B PROG. BAS TEMPPROG DATA ASIS 

Note that in the second case* DATA is 
specified as an operand and in the first 
case* it is specified as part of the 
data-set-name. 
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SAMPLE FIVE PC TO PC TRANSFER 

Using the binary transfer mode/ first uploa 
the specified file to the mainframe. Once it 
is located on the mainframe in its storage 
state; other PC's can access this file and 
have it downloaded to a PC using the same 
file transfer utility. The file will be sent 
to the PC in its original state. ( . BAS or 
Wordstar(TM) format. ) 
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SAMPLE SIX TO SPECIFIED DISK DRIVE 

To specifiy an alternate disk drive for the 
file coming from the mainframei simply 
preceed the destination filename with the 
device name* such as Bfilename or :C 
f i lename. 
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THE ASCII TO EBCDIC CONVERSION 

GENERAL CONVERSION LOSSES 



In all cases* the following ASCII characters 
are translated by IRMATABS. OVR. into the 
equivalent EBCDIC characters. The conversion 
to EBCDIC occurs when a file is sent to the 
host from the PC. 

ASCII EBCDIC 






OPERATIONAL LOSSES 



The EDIT mode of TSO changes the following 
characters to a " : " during transfer: 
\ 



This causes a loss of information which is 
non-recoverable even though E7S echos the 
ASCII symbol. 
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For examp 1 e : 

This is a table on the IBM/PC as sent to the 
mainframe using TSO/EDIT: 

0123456789ABCDEF 

""""?$x& 7 TT* + 7~r7 

0123456789: ; < = >? 
SABCDEFGHI JKLMNO 
PQRSTUVWXYZ C \ J " _. 
x abcdefghijklmno 
pqrstuvwxyz-C!}"" 



This is the table as it mas received back 
from the mainframe on the PC: 



0123456789ABCDEF 

~ 7;7 i$x& 7 77* + 7 : ~7 

0123456789: ; < = >? 
@ABCDEFGHIJKLMNO 
PQRSTUVWXYZC: D " _ 
:abcdefghijklmno 
pqrstuvwxyz: !: 
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In the event that the transfer is not- 
accomplished correctly* refer to th 
following profile for the proper settings of 
various options. Set your profile this way 
and try the transfer again. This profile may 
or may not be complete for your system; it 
is offered here as a suggestion. 



CHAR(O) 
LINE(O) 
PROMPT 
INTERCOM 
NOPAUSE 
NOMSGID 
NOMODE 
NOWTPMSG 
NORECOVER 

DEFAULT LINE/CHARACTER DELETE CHARACTER5 IN 
EFFECT FOR THIS TERMINAL 
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PROM INSTALLATION 

IT IS RECOMMENDED THAT THIS INSTALLATION 
GUIDE BE READ IN ITS ENTIRITY PRIOR TO 
BEGINNGING THE ACTUAL INSTALLATION. 



Never 


attemp t 


to 


remove 


the IRMA b 


oar d 


wi thou t 


first 


turninq off 


all power to 


the 


IBM PC. 


Aliuau s 


use 


care wh 


en removinq 


the 



board from the card cage. 

2. Refer to Figure 1 for the location of the 
IRMA firmware proms. 

3. To remove an existing PROM/ pry gently and 
evenly between the PROM and its socket with 
a narrow blades screw driver or small knife 
to raise the PROM from its socket. After the 
PROM is partially raised from its socket/ 
take hold of the PROM with your fingers and 
carefully withdraw it from the socket. 

4. To insert the replacement PROM( s ) / f ir st 
determine the PIN 1 location on the PROM. 
PIN 1 is indicated by an embossed dot on the 
PROM or it is the pin to the left of the 
semi-circle notch on the TOP of the PROM. 
See Fi gure II 

5. The PROMs must be installed with PIN 1 in 
the upper left hand coner of the PROM 
socket. Be sure the IRMA board is oriented 
as indicated in Figure 1. 

6. Align the pins of the PROM with the pin 
holes in the socket. Be sure that the pins 
are aligned properly. 

7 Press the PROM gently into its socket. 



8. Check the pins on the inserted PROM to 
insure that none of the pins were bent or 
failed to mate with the holes in the socket. 
If any pins are bent or not mated- gently 
remove the PROM from the socket. Staighten 
any pins and re-align the pins. Re-insert 
the PROM. 



Fiqure I - Location of IRMA firmware PROMS 
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Figure II - Chip Orientation 
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